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Abstract 

Satellite  altimeters  provide  many  opportunities  for  oceanographers  to  supplement  their 
research  with  a  valuable  new  data  set.  The  recent  GEO  SAT  exact  repeat  mission  is  the 
first  of  several  altimetry  minions  proposed  during  the  next  decade.  To  utilize  this  new 
data,  a  software  package  was  developed  at- the  Woods  Hole  Oceanographic  Institution 
and  the  University  of  Hawaii  to  facilitate  the  extraction  of  useful  information  from 
the  NODC  distributed  GEOSAT  data  tapes.  This  software  package  was  written  with 
portability  and  modularity  in  mind.  It  should  be  possible  to  use  this  package  with  little 
or  no  modifications  on  data  from  future  altimeters.  The  code  was  written  in  C  and  tested 
on  Sun  workstations  and  is  oriented  toward  UNIX  operating  systems.  However,  since 
standard  code  was  used,  the  programs  should  port  easily  to  other  computer  systems. 
The  modularity  of  the  code  should  enable  users  to  create  addition  programs.  Additional 
programs  designed  to  handle  collocated  water  vapor  corrections  are  also  included  for 
comparison. 
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1  Introduction 


The  altimeter  is  an  active  microwave  radar  that  measures  the  distance  between  itself 
and  the  ocean  surface.  A  pulse  of  known  power  and  duration  is  directed  toward  the 
sea  surface.  By  measuring  the  power  of  the  return  pulse,  it  is  possible  to  determine  the 
altimeter  height.  By  fitting  the  shape  of  the  return  pulse,  it  is  possible  to  calculate  the 
significant  wave  height  and  the  near-surface  wind  speed.  The  uses  of  satellite  altimetry 
include  the  determination  of  ocean  currents,  measurement  of  significant  wave  height 
and  ocean  tides  as  well  as  estimation  of  surface  wind  speeds. 

The  U.S.  Navy  altimeter  satellite  GEOSAT  (GEOdetic  SATellite)  was  designed  to 
provide  the  U.S.  military  with  a  highly  improved  marine  geoid.  In  October  1986,  when 
the  satellite  had  completed  this  classified  work,  it  was  moved  into  a  17-day  exact  repeat 
orbit.  The  new  orbital  parameters  corresponded  to  the  1978  Seasat  mission.  This  new 
unclassified  orbit  was  corrected  periodically  to  provide  a  groundtrack  repeatability  to 
within  1  km. 

The  primary  purpose  of  this  project  is  to  perform  a  “repeat”  or  “collinear”  track 
analysis.  This  analysis  requires  sorting  the  data  into  collinear  tracks,  correcting  the  sea 
surface  heights  for  various  measurement  errors  and  regridding  the  along-track  data  to  a 
common  grid.  We  developed  generalized  programs  to  read  and  assimilate  the  data  into 
a  usable  data  set.  These  programs  were  developed  on  a  Sun  Workstation1,  but  could 
be  easily  ported  to  other  computer  systems. 

Since  GEOSAT  does  not  have  an  onboard  sensor  to  measure  the  effects  of  water 
vapor,  two  separate  estimated  water  vapor  corrections  are  supplied  with  the  data.  One 
alternative  used  here  is  the  first  Special  Sensor  Microwave /Imager  (SSMI),  launched  in 
June  1987  aboard  a  Defense  Meteorological  Satellite  Program  spacecraft.  The  SSMI 
senses  brightness  temperatures.  From  those  brightness  temperatures  environmental 
parameters  such  as  wind  speed  and  water  vapor  can  be  derived  (Hollinger  et  al.  1987). 

We  decided  to  write  several  simple  programs  to  read  in  the  binary  data  tapes, 
format  the  data  and  write  out  the  ASCII  equivalents.  We  also  worked  out  a  naming 
convention  to  facilitate  the  storage  and  retrieval  of  individual  subtracks.  Programs 
were  also  written  for  repeat  track  analysis  and  to  interpolate  the  data  to  a  uniform 
latitude/longitude  grid.  These  programs  were  designed  with  mesoscale  motions  in  mind. 
However,  since  the  programs  are  modular,  users  can  easily  use  their  own  orbit  and  geoid 
corrections  to  study  basin  scale  problems.  We  left  programs  that  interpret  the  data  for 
implementation  by  the  individual  users. 

Section  2  describes  the  GEOSAT  geophysical  data  record  (GDR)  and  section  3 
describes  the  SSMI  data  record.  Section  4  illustrates  the  approach  to  handling  the 
expansive  data  set  and  section  5  describes  the  programs  and  subroutines  developed  to 
handle  the  GEOSAT  data  along  with  explanations  of  input  and  output  data.  Section 
6  describes  the  use  of  these  programs  to  perform  a  repeat  track  analysis  of  a  section  of 
the  North  Atlantic  from  22°  N  to  48°  N  and  284°  E  to  316°  E.  The  appendices  contain 
UNIXJ-style  manual  pages,  program  and  subroutine  listings  and  UNIX  shell  scripts 
described  throughout  the  text. 

tSun  Workstation  is  a  registered  trademark  of  Sun  Microsystems,  Inc. 

’UNIX  is  a  trademark  of  AT&T  Bell  Laboratories 
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2  Geophysical  Data  Record  GDR 

The  raw  altimeter  data  are  collected  at  the  Johns  Hopkins  University  Applied  Physics 
Laboratory  (JHU/APL)  and  are  processed  by  the  National  Oceanographic  and  Atmo¬ 
spheric  Administration  (NOAA).  The  data  are  merged  with  ephemerides  and  corrections 
are  added  for  tides  and  refractions  (Cheney  et  al.  1987.)  The  National  Ocean  Data  Cen¬ 
ter  (NODC)  in  Washington,  D.C.  distributes  the  user  handbook( Cheney  et  al.  1987) 
and  the  completed  GDR  which  is  available  on  tape. 

Table  1  shows  the  parameters  contained  in  each  GDR.  The  parameter  column 
contains  the  names  used  in  the  user  handbook  and  the  abbreviation  column  contains 
the  names  used  for  each  parameter  in  the  programs  and  in  the  text. 

The  first  5  items  are  stored  as  4-byte  integers.  Parameters  utc  and  utcm  contain 
the  time  of  the  record  since  the  (10:00  UTC,  1  Jan.  1985.  The  time  of  the  record 
may  be  calculated  by  t  =  utc  +  utcm  *  10~8.  The  parameters  Lot  and  Lon  contain  the 
latitude  and  longitude  in  microdegrees.  A  positive  latitude  is  north  of  the  equator  and 
the  longitude  is  measured  east  of  the  Greenwich  meridian.  The  satellite  orbit  height, 
Orb,  is  givp'i  in  mm  above  the  reference  ellipsoid. 

The  next  29  parameters  are  stored  as  2-byte  integers.  The  first  of  these  parameters, 
mJi,  is  the  average  sea  surface  height  of  the  record  given  in  cm  above  the  ellipsoid.  The 
standard  deviation  of  the  heights  used  to  calculate  mJi  is  sJi .  The  height  of  the  geoid 
above  the  ellipsoid  in  cm  is  Geoid.  The  measured  10-per-second  sea  surface  heights 
used  to  calculate  mJi  are  h[l]-h[10].  The  average  significant  wave  height  in  cm  is  swh 
and  sswh  is  the  standard  deviation  of  the  measurements  used  to  determine  swh.  The 
backscatter  coefficient,  s.naught  is  computed  aboard  the  spacecraft  in  0.01  dB.  The 
automatic  gain  control,  age ,  is  also  determined  aboard  the  spacecraft  and  s.agc  is  the 
standard  deviation  of  the  measurements  used  to  determine  age.  The  height  offset  used 
for  all  measurements  over  land  is  h-off .  The  correction  to  mJi  for  the  solid  earth  tide 
is  soLtide  and  the  correction  to  mJi  for  the  ocean  tide  is  oc.tide.  The  correction  to 
mJi  to  account  for  the  time  delay  caused  by  water  vapor  in  the  troposphere,  wet-fnoc, 
is  derived  from  the  Fleet  Numerical  Oceanographic  Center  (FNOC)  NOGAPS  model. 
An  alternative  correction  for  the  water  vapor  is  given  as  wet-smmr.  The  correction  for 
the  dry  troposphere  is  given  as  dry-fnoc.  A  correction  for  the  altimeter  time  delay  due 
to  molecules  in  the  troposphere  is  given  by  dry.fnoc,  which  is  also  calculated  from  the 
FNOC  NO  GAPS  model.  The  correction  resulting  from  free  electrons  in  the  ionosphere 
is  given  by  iono-gps.  Two  corrections  are  also  given  for  height  bias.  The  correction 
dh-swh  is  from  a  combination  of  significant  wave  height  and  attitude  bias  and  dk.fm 
is  due  to  compression  of  the  altimeter  pulse.  The  final  parameter,  att  is  the  off-nadir 
satellite  orientation  angle.  See  the  GEOSAT  Altimeter  GDR  User  Handbook  (Cheney 
et  al.  1987)  for  more  information  and  references  for  these  parameters. 


3  SSMI  Data  Record 

The  raw  SSMI  data  were  collocated  with  the  GEOSAT  subtrack  by  Wentz  [1989].  The 
collocated  SSMI  data  records  are  at  10  second  intervals  and  consist  of  12  bytes  as 
described  in  table  2.  A  wind  speed  value  of  45  denotes  no  wind  data  available  due  to 
rain  and  a  columnar  water  vapor  value  of  10  denotes  no  vapor  data  available  due  to 
rain. 
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Geophysical  Data  Record  Contents 

Item 

Parameter 

Abbreviation 

Units 

Range 

Bytes 

UTC 

utc 

Seconds 

0  to  2ai 

4 

UTC(cont’d) 

utcm 

Micro  Second 

0  to  1E6 

4 

Latitude 

lat 

Micro  Degrees 

+/-  7.21E7 

4 

Longitude 

Ion 

Micro  Degrees 

0  to  360E8 

4 

5 

Orbit 

orb 

Millimeter 

7E8  to  9E8 

4 

6 

H 

mJi 

Centimeter 

+/-  32766 

2 

7 

Sigma_H(o-ff) 

s_h 

Centimeter 

0  to  32766 

2 

8 

Geoid 

geoid 

Centimeter 

+/-  1.5E5 

2 

9 

H(l) 

Mi] 

Centimeter 

+/-  32766 

2 

10 

H(2) 

M2] 

Centimeter 

+/-  32766 

2 

11 

H(3) 

M3] 

Centimeter 

+/-  32766 

2 

12 

H(4) 

m 

Centimeter 

+/-  32766 

2 

13 

H(5) 

h[5] 

Centimeter 

+/-  32766 

2 

14 

H(6) 

h[6] 

Centimeter 

+/-  32766 

2 

15 

H(7) 

m 

Centimeter 

+/-  32766 

2 

16 

H(8) 

h(8] 

Centimeter 

+/-  32766 

2 

17 

H(9) 

m 

Centimeter 

+/-  32766 

2 

18 

H(10) 

h[10] 

Centimeter 

+/-  32766 

2 

19 

SWH 

swh 

Centimeter 

0  to  2E3 

2 

20 

Sigma_SWH(<r,»fc) 

a_swh 

Centimeter 

0  to  2E3 

2 

21 

Sigma_naught(cr0  ) 

a  _naught 

0.01  dB 

0  to  6.4E3 

2 

22 

AGC 

age 

0.01  dB 

0  to  6.4E3 

2 

23 

24 

Sigma-AGC^xcc ) 

Flags 

s-age 

0.01  dB 

0  to  6.4E3 

2 

2 

25 

H  Offset 

h.off 

Meters 

0  to  5.4E4 

2 

26 

Solid  Tide 

soLtide 

Millimeter 

+/-  1000 

2 

27 

Ocean  Tide 

oc_tide 

Millimeter 

+/-  10000 

2 

28 

Wet  (FNOC) 

wet-fnoc 

Millimeter 

0  to  -1000 

2 

29 

Wet  (SMMR) 

wet-smmr 

Millimeter 

0  to  -1000 

2 

30 

Dry  (FNOC) 

dry-fnoc 

Millimeter 

-2000  to  -3000 

2 

31 

Iono  (GPS) 

iono-gps 

Millimeter 

0  to  -500 

2 

32 

dh  (SWH/ATT) 

dh-swh 

Millimeter 

+/-  9999 

2 

33 

dh  (FM) 

dh-fm 

Millimeter 

+/-  999 

2 

34 

Attitude 

att 

0.01  Degree 

0  to  200 

2 

Table  1: 


Table  2: 
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SSMI  encoded  data  description 

Item 

Parameter 

Abbreviation 

ESSES 

Units 

1 

Data  flag 

fl 

0  to  3 

0  -  Over  ocean 

1  -  No  orbit  altitude  information 

2  -  Over  land 

3  -  Over  sea  ice 

Wind  speed 

ws 

ms-1 

Columnar  water  vapor 

vp 

- 

gr  ■  cm~ 2 

Columnar  cloud 
water  vapor 

cl 

gr  ■  cm~ 2 

5 

Rain  rate 

rn 

- 

mm  •  hr~x 

Table  3: 


4  Data  Handling 

In  this  text,  the  data  received  from  NODC  is  referred  to  as  “raw”  and  should  not  be 
confused  with  the  data  received  directly  from  the  satellite  JHU/APL.  Each  data  tape 
contains  approximately  34  days  of  data  for  a  total  of  more  than  120  Megabytes  so  that 
it  is  impractical  to  keep  all  available  data  on  disk. 

Since  these  programs  were  developed  to  analyze  mesoscale  features,  the  data  is  split 
from  the  raw  sequential  input  data  into  regional  areas.  The  repeat  analysis  required 
developing  an  orbit  numbering  scheme  to  identify  collinear  orbits.  This  scheme  separates 
the  GDRs  into  ascending  and  descending  orbit  segments  starting  and  ending  at  the  most 
northern  and  most  southern  point  of  an  orbit.  An  orbit  is  defined  to  be  the  combination 
of  the  ascending  and  descending  segments  beginning  with  the  descending  segment.  A 
segment  is  defined  as  any  part  of  a  complete  orbit.  These  orbits  were  numbered  from 
0  to  243  with  zero  being  the  first  orbit  on  the  first  NODC  data  tape.  Since  the  orbits 
repeat  every  17.05  days,  the  orbits  were  also  named  by  the  repeat  cycle  from  which  they 
were  extracted.  A  repeat  cycle  is  defined  as  the  combination  of  all  orbits  beginning  with 
0  and  ending  with  243.  The  cycles  are  also  numbered  consecutively  starting  with  zero. 

The  resulting  files  are  named  cmmm.dnnn  for  descending  orbit  nnn  and  cmmm.annn 
for  ascending  orbit  nnn  from  repeat  cycle  mmm.  Table  4  shows  the  naming  conventions 
used  in  this  report  for  the  various  files  created  during  analysis. 


Naming  conventions 

Convention 

Example 

Description 

cmmm.anrm 

c002.a088 

Raw  GEOSAT  binary  files 

cmmm.annnc 

c002.a088c 

Cleaned  and  corrected  GEOSAT  binary  files 

cmmm.annncs 

c002.a088cs 

Cleaned,  corrected  and  regridded 

GEOSAT  binary  files 

cmmm.annncs_r 

c002.a088csj 

Residuals  from  repeat  analysis,  ASCII  format 

annncs_m 

a088cs_m 

Mean  and  variability  for  repeat  analysis,  ASCII 

format 

cmm.annnasc 

c002.a088asc 

ASCII  file  containing  extracted  data 

Table  4: 


One  alternative  orbit  numbering  method  is  based  on  the  longitude  where  the  orbit 
crosses  the  equator.  This  method,  however,  does  not  convey  the  order  of  each  or- 
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bit  in  time.  Orbit  c010.a045  passes  the  Gulf  Stream  approximately  three  days  before 
c010.a088.  Knowing  the  equatorial  crossing  of  an  orbit  segment  can  be  useful  in  quickly 
locating  an  orbit  in  space  relative  to  another  orbit  or  for  comparing  results  with  other 
numbering  methods.  A  program  was  written  to  convert  the  sequential  numbering  to 
the  equatorial  numbering. 

5  Programs  and  Subroutines 

This  section  contains  descriptions  of  programs  and  subroutines  used  to  analyze  GEOS  AT 
data.  In  the  examples  given,  the  UNIX  prompt  is  represented  by  a  percent  sign 

Most  programs  were  designed  to  read  and  write  the  standard  78-byte  GEOSAT 
GDR  so  that  the  output  from  one  program  may  be  used  as  the  input  for  another.  Pro¬ 
grams  are  also  simple  and  single-purpose.  Instead  of  a  program  that  removes  spurious 
data  points  and  applies  orbit  corrections,  one  program  is  used  to  apply  the  corrections 
and  one  program  is  used  to  remove  unwanted  data.  This  allows  quick  code  modifications 
and  substitutions.  An  alternative  program  to  compute  orbit  corrections  can  be  directly 
substituted  for  the  supplied  correction  program.  A  single  multi-purpose  program  would 
require  major  modifications  to  implement  the  new  corrections. 

Several  programs  were  designed  to  read  or  write  ASCII  data  for  use  with  existing 
plotting  packages  and  display  programs.  ASCII  data  allows  users  to  choose  their  own 
display  programs.  One  program  which  reads  ASCII  data  was  designed  to  interface  di¬ 
rectly  with  the  high  resolution  color  graphics  capabilities  of  the  Satellite  Data  Processing 
System  (SDPS)(Caruso  and  Dunn,  1989)  developed  at  the  Woods  Hole  Oceanographic 
Institution.  Complete  UNIX  style  manual  pages  for  all  programs  are  included  in  ap¬ 
pendix  A. 

Most  programs  have  a  single  input  file,  a  single  output  file  and  accept  command  line 
arguments  as  needed.  This  allows  the  output  of  one  program  to  be  piped  into  the  input 
of  another  program.  The  simple  and  modular  design  of  these  programs  allows  users  to 
combine  programs  to  customize  more  complex  programs.  Several  scripts  were  written 
for  the  UNIX  shell  (a  command  line  interpreter)3  to  utilize  this  versatile  feature.  By 
combining  several  commands  into  a  shell  script,  a  user  can  quickly  modify  the  analysis 
without  changing  program  code  and  recompiling.  For  example,  a  simple  shell  script  to 
perform  a  repeat  analysis  would  look  similar  to  this: 

# 

foreach  i  (c???.  $1) 
echo  $i 
# 

cat  Si  |  g.cleanl  j  g.correct  |  g_clean2  >!  tmp 
(cat  tmp  |  g-spike  |  g_spline  1  22  48  3.3  0.97992165  >  “$i”c) 
end 
# 

echo  Performing  repeat  analysis, 
g-repeat  “$i”c  >  mean.”$l” 

This  uses  three  routines  to  clean  the  data,  one  routine  to  apply  the  standard  cor¬ 
rections  and  one  routine  to  spline  the  data  onto  an  even  grid  for  each  cycle  of  a  given 

^Several  shell  programs  are  available.  The  examples  given  use  the  C  shell. 
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orbit.  Then  the  repeat  analysis  is  done.  The  script  takes  as  an  argument  the  orbit 
number. 

%repeat.sh  a002 

The  user  could  use  a  program  to  apply  non-standard  corrections  by  substituting 
the  program  in  the  shell  script. 

# 

foreach  i  (c???.$l) 
echo  Si 
# 

cat  Si  |  g-cleanl  |  my  .correct  |  g_clean2  >!  tmp 
(cat  tmp  j  g_spike  |  g-spline  1  22  48  3.3  0.97992165  >  “Si”c) 
end 
# 

echo  Performing  repeat  analysis, 
g-repeat  “Si”c  >  mean.”Sl” 

5.1  GEOS  AT  Programs 

A  list  of  available  GEOSAT  analysis  programs  is  given  in  table  5  with  a  brief  synop¬ 
sis.  More  detailed  descriptions  of  programs  are  listed  below  in  alphabetical  order.  All 
GEOSAT  programs  begin  with  g~  to  help  provide  unique  program  names. 

5.1.1  g-cleanl 

This  program  is  used  to  delete  raw  GEOSAT  GDRs  which  contain  obviously  bad  data. 
This  includes  all  records  that  have  any  of  the  following  variables  set  to  32767:  the 
sea  surface  height,  ha,  and  the  corrections  for  earth  tide,  cet,  ocean  tide,  cot,  FNOC 
wet,  wet-fnoc,  or  dry  troposphere,  dry-fnoc,  or  the  ionosphere,  iono.  Records  are  also 
removed  if  the  standard  deviation,  s_A,  of  the  10-per-second  sea  height  values,  h[J]  - 
h[10],  is  greater  than  30  cm,  or  if  the  backscatter  coefficient,  s-naught,  is  greater  than 
35  dB.  This  program  reads  in  a  binary  GEOSAT  file  and  removes  all  bad  records.  The 
number  of  bad  records  is  printed  along  with  the  criteria  for  rejection.  For  example  the 
command 

%cat  c000.a002  |  g-cleanl  >  c000.a002c 


produces: 

g-cleanl:  Valid  points:  345 

Rejected  points:  16 

Height:  0 

Solid  Tide:  0 

Ocean  Tide:  7 

Wet  FNOC:  0 

Dry  FNOC:  0 

Iono:  0 

Sigma  Height:  14 

Sigma  Naught:  0 

Flags:  15 
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List  of  GEOSAT  programs 

Program 

Description 

g-cleanl 

Initial  cleaning  of  raw  GDRs 

g_clean2 

Secondary  cleaning  of  GDRs 

g-compress 

Compresses  GDR  to  18  bytes 

g_correct 

Applies  GDR  suggested  corrections  to  sea 
surface  height 

g-crossnum 

Converts  sequential  orbit  numbers  to  equatorial 
crossing  longitudes 

g-date 

Prints  start  and  end  date  for  GDR  segment 

g_date2 

Prints  start  and  end  date  given  cycle  and  orbit 
number 

g^ext 

Extracts  one  or  more  parameters  from  GDR  and  converts 
to  SI  units 

gJmage 

Converts  ASCII  GEOSAT  data  to  a  bitmap  image. 

g-interp 

Linearly  interpolates  to  a  specific  grid 

g.print 

Decodes  GDRs  and  prints  to  a  terminal 

g-region 

Separates  raw  GEOSAT  GDRs  into  sequential  orbits 
in  a  specified  region 

g-repeat 

Performs  “collinear”  or  repeat  track  analysis 
using  a  quadratic  orbit  correction 

g-repeats 

Performs  “collinear”  or  repeat  track  analysis 
using  a  sinusoidal  orbit  correction 

g_seporb 

Separates  raw  GEOSAT  GDRs  into  sequential  orbits 

g-spike 

Removes  data  spikes  from  GDRs 

g-spline 

Splines  GDRs  to  a  specific  grid 

g-uncompress 

Uncompressis  18  byte  data  record 

g.which 

Prints  orbit  numbers  in  a  given  lat/lon  box 

Table  5: 


This  shows  that  a  total  of  16  records  were  rejected.  Of  those  16  records,  15  were 
rejected  because  the  flag  records  were  bad,  14  were  rejected  because  the  standard  de¬ 
viation  of  the  10-per-second  sea  height  values  were  greater  than  30  cm.  Seven  were 
rejected  because  the  ocean  tide  value  was  set  to  32767.  By  default,  all  records  over  land 
are  also  rejected.  This  most  likely  accounts  for  the  15  records  rejected  because  of  a  bad 
flag  value.  This  default  may  be  changed  to  also  remove  all  records  over  shallow  water 
by  specifying  the  correct  flag  mask.  Any  of  the  available  flags  supplied  in  the  GEOSAT 
GDR  may  be  tested.  This  is  done  by  setting  the  UNIX  environment  variable  GMASK: 

%setenv  GMASK  1 . 0 . 00 

where  a  means  ignore  this  bit,  a  “0”  means  skip  this  record  if  this  bit  is  not  0  and 
a  “1”  means  skip  this  record  if  ths  bit  is  not  1.  For  more  information,  see  the  manual 
page  in  appendix  A.  The  results  of  this  program  are  shown  in  figure  1 . 
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Latitude 


Figure  1:  Raw  sea  surface  heights  plotted  after  running  program  g-cleanl  to  remove 
obviously  bad  data. 
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Compressed  18-byte  Data  Recorr 

Contents 

vra 

Parameter 

Units 

Range 

Type 

Time 

ms 

0  to  1.47E9 

long  int  (4-bytes) 

Height 

cm 

0  to  32767 

short  int  (2-bytes) 

Cycle 

0... 

char  (1-byte) 

Latitude 

104  Deg 

0  to  18E5 

unsigned  int  (3-bytes) 

5 

Longitude 

104  Deg 

0  to  36E5 

unsigned  int  (3-bytes) 

6 

Sigma  Height 

cm 

0  to  255 

unsigned  char  (1-byte) 

SWH 

5cm 

0  to  255 

unsigned  char  (1-byte) 

s-naught 

O.ldB 

0  to  255 

unsigned  char  (1-byte) 

Flags 

char  (1-byte) 

Ocean  Tide 

cm 

-128  to  128 

char  (1-byte) 

Table  6: 


5.1.2  g_clean2 

This  program  is  used  to  dean  up  records  after  g-cleanl  and  g-correct  have  been  used. 
It  simply  removes  data  records  with  sea  surface  heights  greater  than  10000  cm  and 
less  than  -14000  cm.  This  removes  any  obvious  outliers  that  may  interfere  with  other 
analysis  programs  such  as  g. spline.  As  in  g-cleanl,  a  total  of  rejected  points  is  printed. 
The  command 

%cat  c000.a002  |  g_dean2  >  c000.a002c 

produces: 

g_dean2:  Rejected  points:  0 

Maximum  Height:  0 
Minimum  Height:  0 

In  this  case,  file  c000.a002  is  the  output  from  g-cleanl  and  g-correct. 

5.1.3  g-compress  /  g-uncompress 

This  is  a  set  of  programs  designed  to  compress  the  standard  78-byte  GDR  to  18  bytes 
by  reducing  predsion  and  removing  less  important  fields  such  as  the  10-per-second 
sea  surface  heights.  The  output  is  an  18-byte-per-record  binary  file  and  should  be 
uncompressed  before  using  any  of  the  other  analysis  programs.  These  programs  were 
designed  for  storing  as  much  meaningful  data  as  possible  on  limited  systems.  The  format 
of  the  compressed  18-byte  record  is  given  in  table  6.  The  time  variable  stored  is  the 
time  since  the  start  of  aOOO  for  each  cycle.  The  other  variables  are  the  same  as  for  the 
full  GDR  except  with  reduced  predsion. 

5.1.4  g-correct 

This  program  allows  the  user  to  apply  one  or  more  of  the  suggested  corrections  to  the 
sea  surface  height  value  of  each  record.  All  suggested  corrections  are  optional  and  are 
applied  by  default.  An  example  of  applying  all  corrections  would  be: 

%g_correct  <  c000.a002  >  c000.a002c 

In  this  example,  the  file  c000.cl002  is  the  output  from  g-cleanl .  The  output  file  c000.a002c 
has  the  same  format  as  the  original  GDR,  but  the  height  field  now  contains  the  following 
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corrections: 


h  =  h  -  sol-tide  -  oeJtide  -  wet-fnoc  -  dry.fnoc  -  iono.gpa  -  invJbar 


where  the  corrections  axe  supplied  in  the  GDR  (table  1)  except  for  inv-bar  which  is 
given  as  follows: 

inv-bar  =  -9.948(p  -  1013.3) 


and 


_ dry-fnoc _ 

P  ~  (-2.277)  {1  +  [0.0026  cos  {2LAT)\} 


Individual  corrections  may  be  applied  by  specifying  the  abbreviation  on  the  command 
line, 


%g_correct  cet  cot  <  c000.a002c  >  c000.a002c 

This  would  apply  the  corrections  for  the  earth  tide  and  the  ocean  tide  supplied  with 
the  GEOSAT  GDR.  The  list  of  available  abbreviations  is  given  in  table  7  and  in  the 
manual  page  in  appendix  A.  These  abbreviations  also  correspond  to  the  abbreviations 
for  g-ext.  The  corrections  for  a  section  of  c000.a002  are  given  in  figure  2. 


Description  of  variables  for  program  g-correct 

Abbreviation  Description 

cet 

correction  for  earth  tide  in  m 

cot 

correction  for  ocean  tide  in  m 

cwf 

correction  for  wet  troposphere  fhoc 

cws 

correction  for  wet  troposphere  smmr 

cdf 

correction  for  dry  troposphere 

ci 

correction  for  ionosphere 

cib 

correction  for  inverse  barometric  effect 

Table  7: 


5.1.5  g_crossnum 

This  program  finds  the  longitude  where  a  given  orbit  crosses  the  equator.  This  program 
was  designed  to  convert  sequential  orbit  numbers  to  equatorial  crossing  numbers.  The 
program  may  be  used  in  two  ways.  First,  the  specific  orbit  can  be  specified: 

%g_crossnum  a002 
306.43 

Second,  the  program  may  be  given  a  GEOSAT  GDR: 

%g_crossnum  <  c000.a002 
306.43 
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Latitude 


Figure  2:  Correction*  from  a  section  of  orbit  c000.a002.  Cot  is  for  the  ocean  tide;  ci  is 
for  the  ionosphere;  cet  is  for  the  earth  tide;  civ/ is  for  the  FNOC  wet  troposphere;  rib  is 
for  the  inverse  barometric  effect  and  cdf  is  for  the  FNOC  dry  troposphere. 
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5.1.6  g-date 

This  program  prints  the  start  and  end  date  and  time  of  a  GEOSAT  GDR  segment.  The 
program  prints  the  utc  value  from  the  GDR,  the  date,  the  day  of  year,  the  Julian  day 
and  the  day  of  the  cycle. 

%cat  c053.a002  |  g-date 
UTC:  136497764.05 
Date:  4/28/89  20:02:44 
Day  of  year:  118 
Julian:  1753685 
Day  of  cycle:  0 

UTC:  136498110.94 
Date:  4/28/89  20:08:30 
Day  of  year:  118 
Julian:  1753685 
Day  of  cycle:  0 

5.1.7  g_date2 

This  program  is  similar  to  g-date  except  that  it  takes  the  orbit  and  cycle  numbers  as 
arguments.  The  program  prints  the  approximate  beginning  and  ending  times  of  the 
specified  orbit. 

%g-date2  053  002 
UTC:  136492860.00 
Date:  4/28/89  18:41:00 
Day  of  year:  118 
Julian:  1753685 
Day  of  cycle:  0 

UTC:  136498897.00 
Date:  4/28/89  20:21:37 
Day  of  year:  118 
Julian:  1753685 
Day  of  cycle:  0 


5.1.8  g_ext 

This  program  was  written  to  convert  and  extract  one  or  more  parameters  in  a  GEOSAT 
GDR  to  ASCII  format.  It  converts  all  parameters  to  SI  units.  To  create  an  ASCII  file 
of  the  latitude,  longitude  and  uncorrected  sea  surface  heights,  the  following  command 
would  be  given: 

%g.ext  1  L  ha  <  c000.a002  >  c000.a002asc 

where  c000.a002  is  a  file  containing  GDRs  in  binary  format  and  c000.a002asc  is  the 
ASCII  output  from  g.ext.  This  program  allows  the  user  to  use  almost  any  plotting 
package  to  display  the  data.  For  example,  the  command 

%g_ext  1  w  <  c000.a002  |  graph  -g  1  -x  45  20  -5 
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uses  the  standard  UNIX  plotting  utility  graph  to  plot  the  significant  wave  height  for 
orbit  number  002  in  cycle  000  over  the  Gulf  Stream  for  figure  3.  Compare  this  with  the 
clean  data  plotted  after  using  g-cleanl  in  figure  1  to  see  how  obviously  bad  points  can 
be  removed.  The  complete  list  of  abbreviations  is  given  in  table  8  and  in  the  manual 
page  in  appendix  A.  Figures  4  and  5  are  examples  of  other  fields  that  may  be  extracted 
and  plotted  using  more  sophisticated  plotting  packages. 


Description  of  variables  for  program  gjext 

Abbreviation  Description 

t 

time  in  seconds  since  equator  crossing 

of  orbit  cOOO.aOOO 

1 

latitude  in  degrees 

L 

east  longitude  in  degrees 

ho 

orbit  height  above  ellipsoid  in  m 

ha 

sea  surface  height  above  ellipsoid  in  m 

sha 

sigma  ha 

hg 

geoid  height  above  ellipsoid  in  m 

w 

significant  wave  height 

sw 

sigma  w 

so 

backscatter  coefficient  in  0.01  dB 

ag 

age  in  0.01  dB 

sag 

sigma  ag 

fl 

masked  flags 

HA 

land  surface  height  offset  above  ellipsoid 

cet 

correction  for  earth  tide  in  m 

cot 

correction  for  ocean  tide  in  m 

cwf 

correction  for  wet  troposphere  fnoc 

cws 

correction  for  wet  troposphere  smmr 

cdf 

correction  for  dry  troposphere 

ci 

correction  for  ionosphere 

b 

attitude  bias 

be 

compression  bias 

att 

attitude 

cib 

correction  for  inverse  barometric  effect 

h 

corrected  sea  surface  height  above  ellipsoid 

dh 

corrected  sea  surface  height  above  geoid 

Table  8: 


5.1.9  g_image 

This  program  converts  ASCII  GEOSAT  data  in  the  form  latitude ,  longitude  and  z  to  a 
bitmap  image.  An  example  of  Gulf  Stream  variability  calculated  from  the  repeat  track 
analysis  using  ascending  orbits  is  shown  in  figure  6.  The  coastline  and  grid  overlays  on 
this  figure  were  generated  using  SDPS. 

This  program  takes  six  parameters,  the  minimum  latitude  and  longitude,  the  max¬ 
imum  latitude  and  longitude  and  the  number  of  rows  and  columns  in  the  output  image. 
The  following  was  used  to  generate  the  image  in  figure  6: 
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Figure  3:  An  example  of  using  g-ext  to  extract  raw  sea  surface  heights.  The  UNIX 
utility  graph  was  used  to  plot  this  figure. 
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Figure  4:  An  example  of  using  g.ext  to  extract  the  significant  wave 
c000.a002  over  the  Gulf  Stream. 


heights  for  orbit 
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Geoid  Height  Above  Ellipsoid  ( 


%cat  a*c8_m  |  cut  -f2,5  |  g -image  22  48  284  316  416  512  >  vara.sdpsf 
The  input  is  all  the  output  files  from  gjrepeat  for  each  orbit  in  the  region.  The 
command  cut  is  a  standard  UNIX  command  and  illustrates  how  these  programs  are 
designed  to  be  used  with  existing  commands.  The  output  image  has  416  rows,  512 
columns  and  is  on  an  equirect angular  grid  22N,  284E  to  48N,  316E.  This  image  is  in 
SDPS  floating  point  format  and  may  be  converted  to  byte  format  for  display  using  the 
SDPS  routine  sdps-ftb: 

%cat  vara.sdpsf  j  sdps-ftb  >  vara.sdps 


5.1.10  g-interp 

This  program  is  used  to  regrid  the  GEOS  AT  data  to  a  common  grid  by  linearly  interpo¬ 
lating  between  supplied  data  points.  All  variables  in  the  GDR  are  interpolated  except 
the  10-per-second  sea  surface  heights  and  the  data  flags  since  these  fields  are  no  longer 
meaningful  to  the  regridded  data.  The  output  is  regridded  so  that  at  least  one  value 
is  positioned  on  the  equator.  This  ensures  that  segments  from  areas  that  overlap,  i.e. 
10°  N  to  40°  N  and  25°  N  to  50°  N,  can  be  directly  compared.  The  output  file  contains 
complete  segments  in  GDR  format. 

Input  segments  should  be  cleaned  and  corrected  and  five  arguments  are  required 
by  the  program: 

%cat  c000.a002  |  g-interp  dir  min  max  gap  delta-t  >  c000.a002c 
where  dir  is  1  for  an  interpolation  bounded  by  a  minimum  and  maximum  latitude  and 
2  for  an  interpolation  bounded  by  a  minimum  and  maximum  longitude  (see  g-region 
section  5.1.12).  A  gap  is  the  maximum  time  between  good  segments.  The  program  does 
not  spline  across  gaps,  but  labels  the  points  as  bad  (32767).  Gaps  and  incomplete  cycles 
are  filled  to  the  boundaries  defined  by  min  and  max  with  the  correct  latitude.  The  time 
between  interpolated  points  is  delta-t.  One  point  is  placed  on  the  equator  crossing  and 
subsequent  points  are  splined  delta-t  seconds  apart.  There  are  no  default  parameters. 
An  example  for  the  Gulf  Stream  region  is: 

%cat  c000.a002  |  g-interp  1  22  48  3.3  0.97992165  >  c000.a002c 

Here,  the  data  is  interpolated  between  22°  N  and  48°  N.  If  the  segment  has  more  than  3.3 
seconds  of  missing  data,  it  is  considered  to  be  a  gap.  The  output  points  are  interpolated 
to  be  0.97992165  seconds  apart,  which  is  the  same  spacing  as  the  raw  GDRs. 

5.1.11  g-print 

This  program  decodes  each  GEOSAT  GDR  and  prints  the  variables  to  a  terminal.  An 
example  of  the  output  is  shown  below: 
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’:sv;s\\v>. 

>.v>>>X\V; 


X>XV.v 


Figure  6:  An  example  of  an  image  generated  using  g_image.  The  grey  shades  represent 
the  sea  surface  height  variability  and  the  coastlines  were  overlaid  using  SDPS. 


Record  Number: 


1 


utc 

58939389 

utem 

203366 

lat 

22017008 

Ion 

300236639 

orb 

789454644 

m-h 

-5353 

s_h 

4 

geoid 

-4872 

h[l] 

-5349 

h[2] 

-5348 

h[3j 

-5349 

h[4] 

-5348 

h[5] 

-5349 

h[6] 

-5349 

h[7] 

-5358 

h[8] 

-5365 

h[9] 

-5359 

h(10] 

-5359 

swh 

253 

s-swh 

11 

s  .naught 

1088 

age 

2664 

s-age 

2 

flags  (0-15  right  to  left): 

0000010000000011 

h_off 

0 

soLtide 

188 

oc-tide 

- 177 

wetJhoc 

-252 

wet_smmr 

-242  dry_fhoc 

iono-gps 

-16 

dh_swh 

38 

dh-fm 

30 

att 

74 

where  the  units  and  names  correspond  to  those  given  in  table  1. 

5.1.12  g-region 

This  program  reads  raw  GEOSAT  GDRs  and  separates  them  into  individual  ascending 
and  descending  orbits  and  extracts  data  from  a  user-specified  region.  The  user  may 
specify  two  types  of  regions.  The  first  type  of  region  is  bounded  by  latitude  lines,  and 
the  second  is  bounded  by  longitude  lines.  Figure  7  shows  the  ascending  orbits  extracted 
from  a  data  set  over  the  Gulf  Stream  bounded  by  latitude  lines. 

The  smaller  box  in  fig.  7  shows  the  latitude/longitude  boundaries  given  to  the 
program  (22°  N  -  48°  N,  284°  E  -  316°  E).  GDR  segments  were  truncated  at  the 
minimum  and  maximum  latitudes,  but  not  at  the  minimum  and  maximum  longitudes. 
This  was  done  in  order  to  keep  reasonable  ground  track  lengths  in  comers  of  the  box 
since  short  segments  would  be  useless  for  repeat  analysis.  Note  that  all  the  orbits  to 
the  right  of  the  box  actually  extend  until  they  intersect  with  the  22°  N  latitude  line. 
This  particular  region  was  extracted  using  the  command: 

%g_region  1  22.0  48.0  284.0  316.0  <  raw.geo 
To  extract  files  directly  from  the  NO  DC  HP  format  tape: 

%dd  if=/dev/rmt8  ibs=16380  files=34  |  g-region  1  22.0  48.0  284.0  316.0 

This  command  would  extract  the  region  shown  in  figure  7  and  separate  the  data 
into  ascending  and  descending  orbits  using  the  naming  convention  previously  described 
in  section  4.  Since  orbits  may  be  split  between  tapes  or  tape  files,  the  data  is  appended 
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Figure  7:  Ascending  ground  tracks  of  a  region  of  the  Northwest  Atlantic. 


to  any  existing  files.  This  provides  complete  segments  even  if  an  orbit  is  split  between 
data  tapes  or  extracted  data  files.  Since  extracted  regions  do  not  have  unique  names, 
files  should  be  moved  or  deleted  if  additional  regions  are  to  be  extracted  from  the  same 
tape.  This  prevents  discontinuous  regions  from  being  appended  together  under  the  same 
file  name. 

Optional  orbit  numbers  may  be  specified  on  the  command  line.  If  orbits  are  given, 
only  the  orbits  which  fall  within  the  region  are  removed.  To  extract  only  orbits  002  and 
088  the  following  command  would  be  used: 

%dd  if=/dev/rmt8  ibs=  16380  files=34  |  gjegion  1  22.0  48.0  284.0  316.0  2  88 

5.1.13  g -repeat 

This  program  performs  a  repeat  track  analysis  of  GEOSAT  GDRs  and  assumes  that 
all  the  GDRs  have  been  cleaned  ( g-cleanl ,  g.clean2),  corrected  ( g.correct )  and  splined 
( gspline )  or  interpolated  (g. interp)  to  a  uniform  grid.  It  also  assumes  that  each  cycle 
contains  the  same  start  and  end  points.  The  program  reads  in  all  available  GDRs  and 
calculates  the  mean  sea  surface  height  for  each  grid  point.  If  a  sea  surface  height  is  set 
to  32767,  the  point  is  assumed  to  be  bad  and  is  not  used  to  find  the  mean.  This  mean 
height  profile,  averaged  over  all  cycles,  is  then  subtracted  from  each  individual  track  to 
produce  a  residual  sea  surface  height  profile: 

h(xi}t)-  <  h(x)  >=  y(xi,t)  (1) 

where  z<  is  the  location  along  the  subtrack,  t  is  the  cycle  number,  h(z;,t)  is  the  cleaned 
and  corrected  sea  surface  height  profile,  <  h(x)  >  is  the  initial  estimate  for  the  mean 
height  profile,  and  y(zj,t)  is  the  residual  sea  surface  height.  A  quadratic  function, 
a(t)z?  +  b(t)xi  +  c(t),  is  calculated  for  each  residual  height  for  each  cycle  t  using  a  least 
squares  fit  which  minimizes: 

+  M0*<  +  ci(*)]}2  (2) 

*i 

This  quadratic  estimate  of  the  orbit  error  is  removed  from  the  residual  height  for  each 
cycle  to  obtain  a  new  residual  height,  z,  where 

z(xi,t)  =  y(xitt )  -  [ai(f)z*  +  bi(t)xi  +  «i(t)]  (3) 

The  variance,  <r3,  of  all  the  height  residuals  z  for  each  subtrack  is  calculated  by: 

'’<*)- £{* <*.‘»’  («) 

{_0 

where  N{x{)  is  the  number  of  good  data  at  the  point  X{.  A  second  quadratic,  weighted 
by  the  inverse  of  the  variance,  is  fit  to  the  residual  z  to  minimize: 

«2  =  E  {»(*<. 0  ~  [oa(0*i  +  b2 («)*<  +  c2(t)]}2  (5) 

The  resulting  quadratic  orbit  error  estimate  is  then  removed  from  each  profile  to  obtain 
a  corrected  height  profile: 

h(xi,t)  =  h(xi,t )  -  [a2(t)xf  +  b,{t)xi  +  c2(f)]  (6) 
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and  the  geoid  profile,  g(zi),  is  calculated  by  averaging  the  corrected  height  profiles, 
<  h(zi,t)  >.gegingrou  The  sea  surface  height  residuals  are  calculated  for  each  cycle: 

ti(zi,t)  =  h(zi, t )  -  j(*i)  (7) 

and  written  to  separate  files  based  on  the  input  file  names.  The  geoid  and  sea  surface 
height  variability  are  also  printed.  Typically,  the  program  is  called  using  or  “?” 
wildcard  file  specifications: 

%g_repeat  c*/c*.a002c  >  a002cs_m 
or 

%g_repeat  c???/c???.a002c  >  a002cs_m 

The  file  a002cs-m  contains  the  following  information  in  tab  delimited  columns: 

Zi  lat(zi)  lon(zi)  g(zi)  a 3[xi)  £z2  Nfa) 

where  X{  is  a  sequential  counter  of  the  points  in  the  orbit  section,  lai(xi)  and  lon(xi)  are 
the  latitude  and  longitude  at  X{,  g(xi)  is  the  estimated  geoid,  <?*(£<)  is  the  sea  surface 
height  variability,  £  x3  is  the  sum  of  the  squares  of  the  sea  surface  heights  and  N(x{) 
is  the  number  of  cycles  of  good  data  found. 

The  sea  surface  height  residuals,  h'(xi,t),  are  written  to  a  file  in  the  same  directory 
as  the  original  raw  data.  The  new  file  name  is  the  same  as  the  original  with  an  _r  ap¬ 
pended  to  it,  e.g.,  c000.a002  would  become  c000.a002_r.  Each  file  contains  the  following 
information: 


H  lat(xi)  lon(xi)  h'(xi,t)  /i(x*,t)  /2(*i,t) 

where  z*,  lat(x{ ),  /on(zt)  are  the  same  as  in  the  file  described  above;  h'(x,-,  t)  is  the 
corrected  sea  surface  heights  with  the  estimated  geoid  removed;  /i(z;,t)  is  the  original 
quadratic  fit  [a1(i)z2+&i(t)zj+ci(t)]  and  /j(z,-,  t)  is  the  weighted  quadratic  fit  [aj(t)x?+  • 
&2  (0*»  +  <*(*)]• 

5.1.14  g-repeats 

This  program  is  identical  to  g-repeat,  except  that  a  sinusoidal  orbit  correction  is  used. 
Here  a  sinusoidal  estimate  of  the  orbit  error  is  removed  from  the  residual  height  to 
obtain  a  new  residual,  z,  where  equation  3  becomes 

2rt 

+  <f> l)  +  h]  (8) 

where  t  is  the  time  of  the  GDR  and  T  is  the  orbital  period. 

Similarly,  equations  5  and  6  become 

**  =  S  ~  (a2a*n(^  +  <h)  +  *a]}  (9) 

A(zi,t)  =  h(xitt)  -  [a2Stn{^Y  +  fa)  +  h]  (10) 

The  program  is  used  the  same  as  g-repeat  using  or  u?”  wildcard  specifications: 
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or 


%g_repeat  c*/c*.a002c  >  a002cs_m 


%g_repeat  c???/c???.a002c  >  a002cs_m 

Similarly,  the  file  a002cs-m  contains  the  following  information  in  tab  delimited 
columns: 


*«  lat(xi)  lon(ti)  g(xi )  <ra(*i)  £  x3  N(xi) 

The  sea  surface  height  residual  files  are  similar  to  those  created  by  g~repeat 
Xi  lat(xi)  lon(xi)  h'(xitt)  /i(*i,t) 

except  that  /i(z>,t)  is  the  original  sinusoidal  fit  aisin(^r  +  &)  +  b\  and  /a(xi,t)  is  the 
weighted  sinusoidal  fit  ajstn(^  +  ^5)  +  bj. 

Figure  8  shows  a  comparision  of  the  orbit  corrections  for  both  the  quadratic  and 
sinusoidal  fit.  The  solid  line  represents  the  initial  correction  and  the  dashed  line  repre¬ 
sents  the  weighted  correction.  The  initial  corrections  both  peak  at  33°  N  which  is  near 
where  the  ground  track  crosses  Bermuda.  The  weighted  corrections  are  less  influenced 
by  Bermuda,  but  clearly  the  quadratic  is  still  influenced. 

5.1.15  g-seporb 

This  program  was  designed  to  separate  raw  GEOSAT  data  into  separate  orbits  and 
number  the  files  as  described  above.  This  is  similar  to  g-region  except  that  complete 
orbits  are  extracted  from  the  original  data  instead  of  partial  orbits  within  specific  re¬ 
gions.  The  file  naming  conventions  are  consistent  with  g-region  as  described  in  section 
4.  To  separate  all  orbits  from  the  NODC  HP  format  tape: 

%dd  if=/dev/rml8  ibs= 16380  files=34  |  g-seporb 

5.1.16  g-spike 

This  program  was  designed  to  remove  data  spikes  from  the  data  record.  An  example  of 
data  spikes  is  given  in  figure  9.  This  is  data  that  passes  through  g-cleanl  and  g-clean2 
without  being  removed. 

This  type  of  point  may  cause  overshoot  problems  when  the  GDRs  axe  splined  using 
gspline  or  may  bias  the  repeat  analysis.  In  any  case,  the  data  point  is  questionable  and 
should  be  removed. 

This  program  filters  spikes  by  fitting  a  quadratic  function  or  polynomial  to  a  set 
of  points  in  a  least  squares  sense.  Each  orbit  is  split  into  contiguous  segments  where 
a  discontinuity  is  defined  as  a  gap  between  data  points  of  3.3  seconds  or  more.  A 
polynomial  is  fit  through  each  segment  that  contains  at  least  13  points.  If  a  segment 
contains  less  than  13  points,  it  is  removed  from  the  record.  If  the  point  in  question  is 
more  than  0.20  meters  different  from  the  quadratic  fit,  the  two  worst  points  sire  removed 
and  a  second  11  point  quadratic  is  fit.  If  the  point  is  still  more  than  0.20  meters  from 
the  polynomial,  a  straight  line  is  fit  through  the  data  and  the  point  is  finally  rejected  if 
it  is  more  that  0.20  meters  from  the  line.  The  plot  in  figure  9  shows  the  result  of  g.spike 
for  orbit  c022.al60: 
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(ra)  TiorpajjoQ 


Figure  8:  Orbit  corrections  of  cycle  cOOO,  orbit  a088  for  a  quadratic  fit  (left)  and  a 
sinusoidal  fit  (right).  The  solid  line  is  the  initial  correction  and  the  dashed  line  is  the 
weighted  correction. 


24 


Latitude 


Figure  9:  An  example  of  the  effect  gspike  parameters  have  on  data  spikes  for  orbit 
c022.al60  over  the  Gulf  Stream  offset  for  clarity.  Line  a  results  from  the  default  pa¬ 
rameters  where  3-3  seconds  data  gap,  13  fit  points  and  0.20  meter  tolerance;  b  results 
from  3.3  second  data  gaps,  9  fit  points  and  0.50  meter  tolerance. 


%cat  c022.al60c  |  g-spike  >  c022.al60cs 

Since  the  default  parameters  are  moderately  restrictive,  some  data  spikes  may  be 
retained  or  some  valid  data  points  may  be  rejected.  It  is  important  to  check  the  results 
for  spikes  or  missing  data.  The  size  of  the  data  gap,  the  number  of  points  and  the  height 
difference  between  the  spline  and  the  point  being  tested  may  be  specified  to  fine  time 
the  program: 

%cat  c022.al60  j  g-spike  3.3  9  0.5  >  c022.al60c 
This  command  would  split  the  data  into  segments  separated  by  3.3  seconds  or 
more.  The  initial  spline  would  contain  9  points  and  the  second  spline  would  contain  7 
points.  Each  point  would  be  rejected  if  it  differed  by  more  than  0.5  meters  from  each  of 
the  splines  described  above.  For  some  orbits  such  as  al60,  these  parameters  can  retain 
spikes  (figure  9.)  Although  these  spikes  are  negligible  in  the  mean  (figure  10),  they  can 
be  important  in  the  height  residual  (figure  11). 

S.1.17  g-spline 

This  program  will  spline  all  the  data  in  a  given  GDR  except  the  10-per-second  heights 
and  the  data  flags  to  a  uniform  calculated  latitude  grid,  which  has  at  least  one  value  on 
the  equator.  This  program  is  designed  to  be  interchangeable  with  g-interp  so  the  output 
also  contains  complete  segments  and  the  input  is  assumed  to  be  cleaned  and  corrected 
GDRs.  Also,  the  same  5  arguments  are  given  on  the  command  line  and  there  are  no 
defaults: 

cat  c000.a002  |  g-spline  dir  min  max  gap  delta-t  >  c000.a002c 
where  dir  is  1  for  a  spline  bounded  by  a  minimum  and  maximum  latitude  and  2  for  a 
spline  bounded  by  a  minimum  and  mn-rimnm  longitude.  Missing  records  are  filled  with 
the  correct  latitude  and  data  values  are  labeled  as  bad  points  (32767).  Min  and  max 
are  the  minimum  latitude  or  longitude  to  spline  between.  Gap  is  the  maximum  time  in 
seconds  between  continuous  segments.  The  program  does  not  spline  across  gaps,  but 
labels  the  points  as  bad.  Delta-t  is  the  interpolation  time  step.  One  point  is  placed  on 
the  equator  crossing  and  subsequent  points  are  splined  delta.t  seconds  apart.  For  the 
ascending  orbits  shown  in  figure  7,  commands  similar  to  the  following  were  used: 

cat  c000.a002  |  g-spline  1  22.0  48.0  3.3  0.97992165  >  c000.a002c 
The  value  of  0.97992165  was  chosen  to  correspond  to  the  actual  separation  of  one-per- 
second  GDRs. 
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Figure  10:  An  example  of  the  effect  data  spikes  have  on  the  mean  for  orbit  c022.al60 
over  the  Gulf  Stream.  Line  a  results  from  the  default  parameters  and  b  results  from 
3.3  second  data  gaps,  9  fit  points  and  0.50  meter  tolerance. 
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Figure  11:  An  example  of  the  effect  data  spikes  have  on  the  residual  for  orbit  c022.al60 
over  the  Gulf  Stream.  Line  a  results  from  the  default  parameters  and  b  results  from 
3.3  second  data  gaps,  9  fit  points  and  0.50  meter  tolerance. 


5.1.18  g.which 

This  program  is  designed  to  return  all  orbit  numbers  that  cross  within  a  specified 
latitude/longitude  box.  The  arguments  given  to  the  program  are  the  minimum  and 
maximum  latitudes  and  the  minimum  and  maximum  longitudes.  To  find  all  the  orbits 
which  cross  a  box  22°  N  to  48°  N  and  284°  E  to  316°  E,  the  following  command  would 
be  used: 


g-which  22  48  284  316 
With  the  following  printout: 

{a001,a002,d010,d011,a015,a016,d025,a030,a031,d039,d040,a044, 

a045,d053,d054,a059>d068,a073,a074,d082,d083,a087,a088,d096, 

d097,al02>dlll,dll2>all6,all7,dl25,dl26,al30,al31,dl39,dl40, 

al45,al46,dl54,dl55,al59,al60,dl68,dl69,al73,al74,dl82,dl83, 

al88,al89,dl97,dl98,a202,a203,d211,d212,a216,a217,d225,d226, 

a23 1  ,a232  ,d240  ,d24 1 } 

If  only  a  single  latitude/longitude  point  is  given,  the  program  finds  the  closest  ascending 
and  descending  track  and  prints  that: 

g-which  30  280 
d083,al03 


5.2  SSMI  Programs 

A  list  of  available  SSMI  analysis  programs  is  given  in  table  9  with  a  brief  synopsis. 
More  detailed  descriptions  are  given  below. 


List  of  SSMI  programs 

Program 

Description 

s_ext 

Extracts  one  or  more  parameters  and  converts  to  SI  units 

sjegion 

Separates  collocated  SSMI  records  in  sequential  orbits  in 
a  specified  region 

Table  9: 


5.2.1  s_ext 

This  program  is  similar  to  program  g~ext  except  that  it  is  designed  to  work  on  the  SSMI 
data  record.  Usage  is  similar  to  g^ext.  To  extract  the  latitude,  longitude  and  SSMI 
water  vapor  correction,  the  following  command  would  be  given: 

%s_ext  1  L  cws  <  s000.a002  >  s000.a002asc 

The  complete  list  of  abbreviations  is  given  in  table  10  and  in  the  manual  page  in 
appendix  A.  A  comparison  between  the  water  vapor  corrections  given  in  the  GEOSAT 
GDR  for  a  section  of  c015.a045  is  given  in  figure  12. 
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Abbreviation 

Description 

t 

time  in  seconds  since  equator  crossing 
of  orbit  cOOO.aOOO 

1 

latitude  in  degrees 

L 

east  longitude  in  degrees 

fl 

flag  indicating  data  characteristic 

1  -  Over  ocean 

2  -  No  orbit  altitude  information 

3  -  Over  land 

4  -  Over  ice 

ws 

wind  speed  in  ms-1 

vp 

columnar  water  vapor  in  kg  m~2 

cl 

columnar  cloud  vapor  in  kg  m~ 2 

m 

rain  rate  in  mm  hr-1 

cws 

SSMI  correction  for  water  vapor  in  meters 

Table  10:  Description  of  variables  for  program  s_ext 


5.2.2  s-region 

This  program  is  similar  to  g-region  except  that  it  is  designed  to  extract  regions  from 
SSMI  data  records.  The  orbits  are  numbered  exactly  the  same  as  in  g-region.  The 
output  cycles  are  also  named  the  same  except  that  the  cycle  numbers  are  preceded  by 
an  “s”  instead  of  a  “c”.  The  program  takes  the  first  five  arguments  from  g-region.  To 
extract  the  area  shown  in  figure  7,  the  following  command  would  be  given: 

%s_region  1  22.0  48.0  284.0  316.0  <  raw-ssmi 
The  output  file  named  s000.a,002  would  correspond  to  the  GEOSAT  file  cOOO.aOOZ. 

5.3  Subroutines 

A  list  of  the  subroutines  developed  for  this  project  is  given  below  with  a  brief  synopsis 
of  each  routine. 

5.3.1  geo_cyc_orb 

This  subroutine  returns  a  cycle  and  orbit  number  for  a  given  time.  The  subroutine  is 
called: 

geo_cyc_orb(time,  &cyc,  &orb) 

where  time  is  double  precision  and  eye  and  orb  are  integers.  This  can  be  used  by  any 
program  that  needs  to  know  the  cycle  and  orbit  number  for  a  given  record,  by  passing 
the  time  variable  in  that  record. 

5.3.2  geo.error 

This  is  a  subroutine  that  is  called  to  print  out  common  error  messages.  The  subroutine 
is  called: 

geo.error(num,  str) 
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where  num  is  the  number  of  the  error  to  print  and  sir  is  the  name  of  the  program  calling 
geo-error.  The  current  messages  are: 

Number  Message 
0  Unrecoverable  error 

1  c???.[ad]??? 

2  Error  reading  file 

3  Error  writing  file 

5.3.3  geo_mask 

This  subroutine  reads  the  UNIX  environment  variable  GMASK  if  it  is  available  and 
converts  it  to  an  integer.  GMASK  is  used  to  indicate  to  various  programs  which  GDR 
flags  should  be  checked  and  which  flags  should  be  ignored.  See  section  5.1.1  and  A  for 
more  details  on  the  use  of  GMASK.  The  subroutine  is  called: 

geo_mask(&mask,  &  valid) 

where  mask  and  valid  are  short  (16-bit)  integers.  Mask  is  returned  with  its  bits  set  to 
1  for  each  1  in  GMASK.  Valid  is  returned  with  its  bits  set  to  1  for  each  0  or  1  in 
GMASK.  See  section  5.1.1  and  A  for  more  details  on  the  use  of  GMASK. 

5.3.4  geo-which 

This  subroutine  performs  the  same  function  as  the  program  g-which.  It  can  be  used  by 
any  program  that  needs  to  determine  which  orbit  numbers  fall  within  a  given  latitude- 
longitude  box.  The  subroutine  is  called: 

geo_which(minJat,  maxJat,  min  Jon,  maxJon,  a,  d) 

where  minJat,  max-lat,  mirulon  and  maxJat  are  the  boundaries  of  the  region,  a  and  d 
are  unsigned  character  arrays  that  are  returned.  The  arrays  a  and  d  have  244  elements, 
one  for  each  orbit.  Each  will  be  returned  with  a  1  in  the  element  that  corresponds  to 
an  orbit  that  passes  through  the  specified  box.  Otherwise,  the  program  returns  a  0  in 
that  element.  Thus,  if  orbit  a002  passes  through  the  given  region,  a[2]  =  1. 

6  Repeat  Orbit  Analysis 

The  programs  described  in  section  5  were  written  to  facilitate  repeat  orbit  analysis.  This 
section  describes  how  these  programs  were  used  in  conjunction  to  analyze  a  section  of 
North  Atlantic  covering  the  Gulf  Stream.  The  area  of  interest,  22°  N  to  48°  N,  284°  E 
to  316°  E,  is  shown  in  figure  7,  and  is  restricted  to  the  ascending  orbits.  The  analysis 
could  also  be  performed  for  the  descending  orbits  in  a  similar  manner.  The  shell  script 
in  appendix  C  shows  how  these  programs  may  be  used  together. 


32 


To  perform  a  repeat  analysis,  the  GDRs  must  first  be  removed  from  the  data  tape 
with  the  following  command: 

%dd  if=/dev/rmt8  ibs=16380  files=34  |  gjegion  1  22.0  48.0  284.0  316.0  2  88 


This  extracts  all  the  ascending  and  descending  orbits  within  the  specified  region  and 
places  them  in  the  current  directory  following  the  naming  convention  described  in  sec¬ 
tion  4.  For  the  first  GEOSAT  tape,  the  directory  listing  is  as  follows: 


cOOO.aOOl 

c000.al45 

c000.d053 

c000.dl97 

c001.a074 

c001.a216 

c001.dl26 

c000.a002 

c000.al46 

c000.d068 

c000.dl98 

c001.a087 

c001.a217 

c001.dl39 

c000.a015 

c000.al59 

c000.d082 

c000.d211 

c001.a088 

c001.a232 

c001.dl40 

c000.a016 

c000.al60 

c000.d083 

c000.d212 

c001.al02 

cOOl.dOlO 

c001.dl54 

c000.a030 

c000.al73 

c000.d096 

c000.d225 

c001.all6 

cOOl.dOll 

c001.dl55 

c000.a031 

c000.al74 

c000.d097 

c000.d226 

c001.all7 

c001.d025 

c001.dl68 

c000.a044 

c000.al88 

cOOO.dlll 

c000.d240 

c001.al30 

c001.d039 

c001.dl69 

c000.a045 

c000.al89 

c000.dll2 

c000.d241 

c001.al31 

c001.d040 

c001.dl82 

c000.a059 

c000.a202 

c000.dl25 

cOOl.aOOl 

c001.al45 

c001.d053 

c001.dl83 

c000.a073 

c000.a203 

c000.dl26 

c001.a002 

c001.al46 

c001.d054 

c001.dl97 

c000.a074 

c000.a216 

c000.dl39 

c001.a015 

c001.al59 

c001.d068 

c001.dl98 

c000.a087 

c000.a217 

c000.dl40 

c001.a016 

c001.al60 

c001.d082 

c001.d211 

c000.a088 

c000.a231 

c000.dl54 

c001.a030 

c001.al73 

c001.d083 

c001.d212 

c000.al02 

c000.a232 

c000.dl55 

c001.a031 

c001.al74 

c001.d096 

c001.d225 

c000.all6 

cOOO.dOlO 

c000.dl68 

c001.a044 

c001.al88 

c001.d097 

c001.d226 

c000.all7 

c000.d025 

c000.dl69 

c001.a045 

c001.al89 

cOOl.dlll 

c001.d240 

c000.al30 

c000.d039 

c000.dl82 

c001.a059 

c001.a202 

c001.dll2 

c001.d241 

c000.al31 

c000.d040 

c000.dl83 

c001.a073 

c001.a203 

c001.dl25 

These  files  should  then  be  moved  into  subdirectories  named  with  the  cycle  number: 


cOOO 

c005 

cOlO 

c015 

c020 

c025 

c030 

c035 

c040 

c045 

c050 

cOOl 

c006 

cOll 

c016 

c021 

c026 

c031 

c036 

c041 

c046 

c051 

c002 

c007 

c012 

c017 

c022 

c027 

c032 

c037 

c042 

c047 

c052 

c003 

c008 

c013 

c018 

c023 

c028 

c033 

c038 

c043 

c048 

c053 

c004 

c009 

c014 

c019 

c024 

c029 

c034 

c039 

c044 

c049 

The  GDRs  must  then  be  cleaned,  corrected  and  regridded.  Data  anomalies  such  as 
spikes  or  gaps  should  also  be  removed. 

Following  the  shell  script  step-by-step,  the  GDRs  are  first  cleaned  and  corrected 
using  default  values  and  stored  in  a  temporary  file  tmp: 

cat  c000/c000.a002  |  g_cleanl  |  g.correct  |  g_clean2  >!  tmp 
This  temporary  file  is  then  cleaned  of  any  remaining  spikes  and  splined  to  a  uniform 
grid  and  stored  as  a  new  file: 

(cat  tmp  |  g-spike  |  g-spline  1  22  48  3.3  0.97992165  >  c000/c000.a002c) 

These  two  steps  are  repeated  using  the  foreach  command  for  each  cycle  until  all 
cycles  are  processed.  Then  the  repeat  analysis  is  performed: 

g-repeat  c*/c*.a002c  >  means/mean.a002c 
G.repeat  automatically  writes  the  residual  files  to  the  same  directory  as  the  input 
clean  files  and  appends  an  _r  to  the  end  of  the  filename.  The  output  file  mean.a002c 
contains  the  geoid  and  variability  of  the  orbit  a002. 
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A  Manual  Pages 

This  section  contains  the  UNIX  style  manual  pages  for  each  of  the  programs  and  sub¬ 
routines  listed  in  sections  5.1,  5.2  and  5.3. 
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GEOSAT(L) 


WHOI  Local  Commands 


GEOSAT(L) 


NAME 


geoeat  -  Programs  and  subroutines  for  processing  GEOSAT  GDR  files. 

DESCRIPTION 

This  manual  page  describes  the  various  programs  available  for  processing  GEOSAT 
GDR  files.  These  programs  were  developed  at  the  Woods  Hole  Oceanographic  Institu¬ 
tion  to  simplify  the  handling  of  raw  NODC  data  tapes.  These  programs  were  designed 
to  run  under  the  4.2/4.3  BSD  UNIX  operating  system. 

These  programs  were  designed  to  take  full  advantage  of  existing  UNIX  commands 
as  well  as  the  UNIX  file  system. 

ORBIT  INFORMATION 
LABELING 

The  original  data  from  NODC  comes  in  17  files  that  contain  14  or  15  complete 
orbits  each.  These  17  files  make  a  complete  repeat  cycle.  To  facilitate  data  han¬ 
dling,  these  files  are  broken  up  into  individual  orbits  which  are  further  broken  up  to 
an  ascending  component  and  a  descending  component.  The  ascending  and  descending 
components  are  broken  at  the  most  northern  and  southern  excursion  of  the  satellite. 
The  resulting  files  are  named: 

cnnn.dmmm  for  descending  orbit  mmm  of  repeat  cycle  nnn 

cnnn.ammm  for  ascending  orbit  mmm  of  repeat  cycle  nnn 

By  convention,  orbit  numbers  mmm  and  cycle  numbers  nnn  begin  with  000  for  the  first 
orbit  and  cycle  on  the  first  data  tape  sent  out  from  NOAA  which  begins  on  November 
8,  1986.  Also,  by  convention,  the  ascending  orbit  follows  the  descending  orbit.  The 
last  point  of  an  ascending  or  descending  orbit  is  the  most  northern  or  most  southern 
point  of  that  orbit. 

PARAMETERS 

The  following  parameters  were  used  in  the  various  programs  listed  below.  These 
parameters  were  computed  by  a  least  squares  fit  over  cycles  000  and  001. 

orbital  period  PERIOD  6037.5515  sec 

repeat  cycle  244*PERIOD  17.0504  days 

distance  between  adjacent  crossings  360/244  1.4754  deg 

distance  between  successive  crossings  17*360/244  -25.0820  deg 

time  of  the  equator  crossing  of  cOOO.aOOO  58407697.82  sec 

longitude  of  the  equator  crossing  of  cOOO.aOOO  356.58783  deg 


Sun  Release  4.0 


Feb  22,  1989 
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GEOSAT(L)  WHOI  Local  Commands  GEOSAT(L) 

LIST  OF  PROGRAMS 


Name 

Manual  Page 

g-ext 

g-e*t(l) 

g.cleanl 

g-cleanl(l) 

g.clean2 

g-clean2(l) 

g.compress 

g.compress(l) 

g-correct 

g_correct(l) 

g-croesnum 

g-croesnum(l) 

g.date 

g_date(l) 

g-date2 

g-date2(l) 

g-image 

gjmage(l) 

g-interp 

g-interp(l) 

g.print 

g-print(l) 

g  .region 

gjegion(l) 

g-repeat 

g-repeat(l) 

g-seporb 

g_seporb(l) 

g-spike 

g-spike(l) 

g -spline 

g-spline(l) 

g-uncompress 

g.uncompress(l) 

g-which 

g.which(l) 

Description 

Extracts  GDR  variables  in  ASCII  format 

Removes  obviously  bad  data  from  GDRs 

Removes  bad  data  from  corrected  GDRs 

Compress  GDRs  to  18  bytes 

Applies  suggested  correction  to  GDRs 

Finds  equator  crossing  of  given  orbit 

Prints  start  and  end  date  for  GDR  segment 

Prints  start  and  end  date  for  given  orbit  and  cycle 

Creates  an  bitmap  image  of  GEOSAT  data 

Interpolates  to  an  even  grid 

Decodes  GDRs  to  ASCII  format 

Extracts  a  region  from  continuous  GDRs 

Preforms  repeat  analysis  on  GDRs 

Separates  continuous  GDRs  into  asc  It  desc  orbits 

Removes  spikes  from  GDRs 

Splines  GDRs  to  an  even  grid 

Uncompresses  18  byte  data  record 

Prints  orbit  numbers  in  a  given  box 


LIST  OF  SUBROUTINES 

Name  Description 

geo-error  Prints  error  messages  to  standard  output. 

geo.cyc.orb  Returns  cycle  and  orbit  number  for  given  GDR 

geo-mask  Reads  environment  variable  GMASK 

geo.which  Returns  arrays  of  orbits  which  cross  an  area. 


BUGS 

Please  report  bugs  to  mcamsoQaqua.whoi.edu  or  pierreQio.soest.hawaii.edu 

AUTHORS 

Mike  Caruso 
Ziv  Sirkes 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

Pierre  Flament 
Mimi  Baker 
University  of  Hawaii 
Honolulu,  HI  96822 
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G-CLEANl(L) 


WHO  I  Local  Commands 


G-CLEANl(L) 


NAME 

g^leanl  -  cleans  GEOSAT  GDR  data 

SYNOPSIS 

g_cleanl 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  Midin  and  removes  data  records  with 
one  or  more  bad  data  flags,  or  if  any  of  the  following  variables  are  set: 


Variable 

Description 

Bad  value 

ha 

sea  surface  height  above  ellipsoid 

32767cm 

sha 

sigma  ha 

>30cm 

so 

sigma  naught  (backscatter  coef) 

>35dB 

cet 

correction  for  earth  tide 

32767mm 

cot 

correction  for  ocean  tide 

32767mm 

cwf 

correction  for  wet  troposphere  fhoc 

32767mm 

cdf 

correction  for  dry  troposphere 

32767mm 

ci 

correction  for  ionosphere 

32767mm 

The  user  may  also  specify  which  data  flags  are  to  be  used.  A  record  will  be  skipped 
if  the  flag  bits  do  not  match  the  mask  given  by  the  environment  variable  GMASK. 
This  variable  should  contain  a  string  of  characters  describing  the  flag  bits  from  0  to  15 
from  left  to  right.  A  means  ignore  this  bit;  a  “0*  means  skip  this  record  if  this  bit 
is  not  0;  a  “1*  means  skip  this  record  if  this  bit  is  not  1.  If  the  variable  GMASK  is 

not  set,  the  default  mask  “1 . 0 . 0  0”  is  assumed,  i.e.,  the  data  over 

land  is  not  printed.  Examples  of  possible  masks: 

setenv  GMASK  11--0000 . 00 

will  skip  records  over  land  and  shallow  water  and  for  which  the  VATT  is  dubious; 

setenv  GMASK  0  0 . 0 . 0  0 

will  print  the  data  over  land  only. 


AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l) 
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G_CLEAN2(L) 


WHOI  Local  Commands 


G-CLEAN2(L) 


NAME 


g_clean2  -  cleans  GEOSAT  GDR  data 

SYNOPSIS 

g_clean2 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  tidin  and  removes  data  records  with 
sea  surface  heights  greater  than  10,000  cm  or  less  than  *14,000  cm.  Output  is  in 
GEOSAT  GDR  format.  The  program  assumes  that  corrections  have  been  applied  to 
the  data  previously. 


AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g.correct(l) 
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G.COMPRESS(L) 


WHO  I  Local  Commands 


G.COMPRESS(L) 


NAME 


g-compress,  g-uncompress  -  compresses/uncompresses  special  18-byte  data  record 

SYNOPSIS 

g-compress 

g-uneompress 


DESCRIPTION 

These  programs  were  designed  to  compress  and  uncompress  a  standard  GDR  to  18 
bytes  by  reducing  precision  and  removing  less  important  variables.  The  format  of  the 
18-byte  record  is  given  below. 


Time 

ms 

0  to  1.47E9 

long  int  (4-bytes) 

Height 

cm 

0  to  32767 

short  int  (2-bytes) 

Cycle 

0... 

char  (1-byte) 

Latitude 

104  Deg 

0  to  18E5 

unsigned  int  (3- bytes) 

Longitude 

104  Deg 

0  to  36E5 

unsigned  int  (3-bytes) 

Sigma  Height 

cm 

0  to  255 

unsigned  char  (1-byte) 

SWH 

5cro 

0  to  255 

unsigned  char  (1-byte) 

smaught 

O.ldB 

0  to  255 

unsigned  char  (1-byte) 

Flags 

char  (1-byte) 

Ocean  Tide 

cm 

-128  to  128 

char  (1-byte) 

AUTHOR 

Pierre  F lament 
Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI  96822 

SEE  ALSO 

geosat(l) 
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G-CORRECT(L) 


WHOI  Local  Commands 


G-CORRECT(L) 


NAME 

g-correct  -  corrects  GEOSAT  GDR  data 
SYNOPSIS 

g -correct  [cot  cet  cwf  cdf  ci  cib] 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  stdin  and  applies  the  following  cor¬ 
rection  to  the  sea  surface  height. 

ha(corrected)  =  ha  -  cet  -  cot  -  cwf  -  cdf  -  ci  -  cib 

where 

cib  =  -9.948  *  (p  -  1013.3) 
and 

p  =  cdf  /  ((-2.277)*(1.  +  (0.0026  *  cos(2*latitude)))) 

using  the  following  variables  from  the  GDR. 

Variable  Description 

ha  sea  surface  height  above  ellipsoid 

cet  correction  for  earth  tide 

cot  correction  for  ocean  tide 

cwf  correction  for  wet  troposphere  fhoc 

cdf  correction  for  dry  troposphere 

ci  correction  for  ionosphere 

cib  correction  for  inverse  barometer 

The  program  assumes  that  the  input  GDR  has  been  previously  cleaned  up.  The 
default  is  to  apply  all  corrections.  By  selecting  one  or  more  of  the  option  arguments, 
only  those  arguments  given  will  be  applied. 

REFERENCE 

Geosat  Altimeter  Geophysical  Data  Record  User  Handbook, 

Cheney  et  al.,  NOAA  Technical  Memorandum  NOS  NGS-46,  July  1987 

AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g.cleanl(l) 
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G-CROSSNUM(L) 


WHOI  Local  Commands 


G.CROSSNUM(L) 


NAME  * 

g-crossnu m  -  finds  the  orbit  crossing  for  a  sequential  GEOSAT  orbit 

SYNOPSIS 

g-erossnum  [orbit] 

DESCRIPTION 

This  program  may  be  used  in  two  ways.  First,  it  can  be  called  with  an  orbit  number: 
g-crossnum  a002 

Second,  if  no  arguments  are  given,  the  program  will  read  a  GEOSAT  GDR  from  ttdin: 
g.crossnum  <  c000.a002 

The  output  is  the  approximate  longitude  of  the  orbit  crossing  at  the  equator.  This  is 
useful  for  comparing  sequentially  numbered  orbits  with  orbits  numbered  by  equatorial 
crossing. 

AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geoeat(l) 
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G-DATE(L) 


WHOI  Local  Commands 


G-DATE(L) 


NAME 

g-date  -  prints  the  start  and  end  date  of  GEO  SAT  GDR  data 

SYNOPSIS 

g-date 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  tidin  and  prints  the  date  and  time 
of  the  first  and  last  record  in  the  file.  The  program  also  lists  the  Julian  day,  the  year 
day  and  the  day  of  the  cycle. 


AUTHORS 

Ken  BorowBki 
Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g.date2(l) 
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G_DATE2(L) 


WHOI  Local  Commands 


G-DATE2(L) 


NAME 

g-date2  -  prints  the  start  and  end  date  of  GEOSAT  GDR  data 

SYNOPSIS 

g.date2  cycle  orbit 

DESCRIPTION 

This  program  reads  the  cycle  and  orbit  number  from  the  command  line  and  prints  the 
date  and  time  of  the  first  and  last  record  of  that  orbit.  The  program  also  lists  the 
Julian  day,  the  year  day  and  the  day  of  the  orbit. 

AUTHORS 

Ken  Borowski 
Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g_date(l) 
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G-EXT(L) 


WHOI  Local  Commands 


G-EXT(L) 


NAME 

g-ext  -  extracts  GEOSAT  GDR  data  and  prints  variables  in  ASCII 

SYNOPSIS 

g_ext  list 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  tidin  and  extracts  the  specified  vari¬ 
ables  on  aidout.  The  variable  list  may  be  a  combination  of  one  or  more  of  the  following 
variables,  in  any  order  separated  by  spaces: 

Variable  Description 

t  time  in  seconds  since  START-TIME 

1  latitude  in  degrees 

L  east  longitude  in  degrees 

ho  orbit  height  above  ellipsoid  in  m 

ha  sea  surface  height  above  ellipsoid  in  m 

sha  sigma  ha 

hg  geoid  height  above  ellipsoid  in  m 

w  significant  wave  height 

aw  sigma  w 

so  backscatter  coefficient  in  0.01  dB 

ag  age  in  0.01  dB 

sag  sigma  ag 

fl  masked  flags 

HA  land  surface  height  offset  above  ellipsoid 

cet  correction  for  earth  tide  in  m 

cot  correction  for  ocean  tide  in  m 

cwf  correction  for  wet  troposphere  fnoc 

cws  correction  for  wet  troposphere  smmr 

cdf  correction  for  dry  troposphere 

ci  correction  for  ionosphere 

ba  attitude  bias 

be  compression  bias 

att  attitude 

cib  correction  for  inverse  barometric  effect 

h  corrected  sea  surface  height  above  ellipsoid 

dh  corrected  sea  suriace  height  above  geoid 

A  record  will  not  be  printed  if  any  of  the  requested  variables  contain?  invalid  data 
(32767). 

AUTHORS 

Pierre  F lament 
Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI  96822 

Mike  Caruso 
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G-EXT(L) 


WHOI  Local  Commands 


G-EXT(L) 


Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l) 


Sun  Release  4.0 
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GJMAGE(L)  WHOI  Local  Commands  GJMAGE(L) 

NAME 


g-image  -  Generates  a  bitmap  image  of  GEOSAT  GDR  data 
SYNOPSIS 

g-image  min-lat  min-lon  max-lat  max-ion  rows  cols 

DESCRIPTION 

This  program  reads  an  ASCII  file  with  the  latitude,  longitude  and  s  value  on  one  line 
from  stdin.  The  program  writes  an  SDPS  floating  point  file  to  sldouL  For  information 
on  converting  this  to  a  byte  image  see  sdps-ftb(l).  The  output  file  is  an  equirec  t  angular 
image  rows  high  by  columns  wide  with  coordinates  from  min-lat  to  max-lat  and  min-lon 
to  max-ion. 


AUTHORS 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 

Woods  Hole,  MA  02543 

Pierre  F lament 

Oceanography  Department 

University  of  Hawaii 

Honolulu,  HI  96822 

REFERENCE 

Caruso,  M.  and  C.  Dunn,  Satellite  Data  Processing  System  (SDPS)  Users  Manual  V1.0, 
Woods  Hole  Oceanog.  Inst.  Tech.  Rept.,  WHOI-89-13,  1989 

SEE  ALSO 

geoaat(l)  sdps(l)  sdpsutil(l)  sdps_ftb(l) 
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GJNTEEP(L) 


WHOI  Local  Commands 


G-TNTEEP(L) 


NAME 


gJnterp  -  linearly  interpolates  the  GEO  SAT  GDR  data 

SYNOPSIS 

gJnterp  [dir  min  max  deltmax  time  step] 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  ttdin  and  breaks  the  data  into  con¬ 
tinuous  segments  where  a  gap  is  defined  by  a  gap  of  deltmax  seconds  between  records. 
This  program  is  used  to  regrid  the  GDRs  to  a  consistent  latitude-longitude  grid.  The 
algorithm  was  designed  so  that  at  least  one  point  lies  on  the  equator  crossing  and  each 
successive  point  is  timestep  seconds  from  the  previous  point.  The  program  will  fill  gaps 
with  a  calculated  latitude  and  bad  values  (32767)  for  the  longitude  and  height  vari¬ 
ables.  Since  not  all  orbits  will  be  complete,  the  user  also  needs  to  specify  a  minimum 
and  maximum  latitude  or  longitude  with  min  and  max  as  well  as  the  direction  of  the 
boundary  with  dir.  If  dir  is  1,  the  record  is  filled  between  a  minimum  and  maximum 
latitude  and  if  dir  is  2,  the  record  is  filled  between  the  minimum  and  maximum  longi¬ 
tude.  The  program  assumes  that  corrections  have  been  applied  to  the  data  previously 
and  the  data  is  free  of  abnormal  values  that  appear  as  spikes. 


AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g-correct(l)  g-spike(l)  g-spline(l) 


Sun  Release  4.0 


May  26,  1989 
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G-PRINT(L)  WHOI  Local  Command*  G-PRINT(L) 

NAME 


g-print  -  Decodes  GEOSAT  GDR  records  in  a  lengthy  format 

SYNOPSIS 

g-print 

DESCRIPTION 

This  program  takes  GEOSAT  GDR  files  and  prints  in  a  lengthy  ASCII  format.  Each 
parameter  is  printed  in  its  raw  format  with  an  identifier  to  sidout  Of  special  note  is 
the  data  flags  parameter.  The  flags  are  ordered  as  follows: 

FEDCBA9876543210 

where  0  is  the  seroth  flag  bit  and  F  is  the  fifteenth  flag  bit  as  listed  in  the  GEOSAT 
Altimeter  GDR  User  Handbook. 

AUTHORS 

Pierre  Flament 
University  of  Hawaii 
Honolulu,  HI  96822 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geoeat(l) 
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G-REGION(L) 


WHOI  Local  Commands 


G-REGION(L) 


NAME 


g-region  -  Extracts  a  specified  region  from  a  GEOSAT  GDR  data  set 

SYNOPSIS 

g-region  dir  minJat  maxJat  minJon  maz-lon  [orb#] 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  ttdin,  extracts  a  specified  region 
and  separates  the  data  into  ascending  and  descending  orbits  that  comply  with  the 
naming  conventions  described  in  geosat(l)  manual  page.  This  program  finds  the  data 
that  fall  within  the  latitude-longitude  box  given  by  the  parameters  min-lat,  max,  lot, 
min.lon,  maxJon.  In  order  to  maintain  reasonable  orbit  lengths,  the  program  will  clip 
the  orbits  with  either  a  constant  latitude  boundary,  or  a  constant  longitude  boundary. 
Therefore,  orbits  that  would  normally  be  clipped  in  the  corners,  are  extended  to  either 
the  constant  latitude  or  longitude  boundary.  The  constant  direction  is  chosen  with  the 
parameter  dir.  If  dir  is  1,  the  program  extracts  all  data  from  that  orbit  that  is  between 
min^lai  and  max^lat.  If  dip  is  2,  the  program  extracts  all  data  that  is  between  minJon 
and  max-ion.  If  the  optional  orbit  numbers  are  given,  only  those  orbits  that  fall  within 
the  given  box  are  extracted. 

This  program  can  be  used  to  extract  data  directly  from  the  NODC  data  tapes: 
dd  if=/dev/rmt8  ibs=16380  fUes=34  |  g-region  1  10.0  30.0  280.0  300.0 


BUGS 


This  program  should  only  be  used  on  complete  orbits.  It  does  not  work  on  files  that 
have  already  been  extracted  using  g-region  or  g-seporb. 

AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Insti*  <.ion 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g.seporb(l) 


Sun  Release  4.0 


Jan  16,  1989 
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G-REPEAT(L) 


WHOI  Local  Commandi 


G-REPEAT(L) 


NAME 


g^epeat  -  perform*  a  repeat  aoalyaia  on  GEOSAT  GDR  data 

SYNOPSIS 

g .repeat  cfff.a xxx 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  each  of  the  file  names  on  the  com¬ 
mand  line.  The  mean  sea  surface  height  is  calculated  for  each  point  along  the  track 
and  subtracted  from  each  cycle.  A  quadratic  polynomial  is  fit  to  the  difference  and 
subtracted  from  each  cycle.  The  variance  of  the  remainder  is  then  used  to  calculate  a 
new  quadratic  fit.  This  polynomial  is  then  removed  from  the  original  sea  surface  height 
as  an  orbit  error.  The  residual  height  for  each  cycle  is  written  to  a  file  with  the  record 
number,  the  latitude,  the  longitude,  the  residual  heights  along  with  the  two  quadratic 
polynomial.  Also  the  statistics  for  each  point  are  printed  to  standard  output.  This  file 
contains  the  record  number,  the  latitude,  the  longitude,  the  mean  and  variance  of  the 
corrected  heights,  the  sum  of  the  squared  heights  and  the  number  of  points  used  for  the 
statistics  of  each  record.  All  heights  are  given  in  meters.  The  program  assumes  that 
corrections  have  been  applied  to  the  data  previously  and  the  data  has  been  splined  to 
a  uniform  latitude-longitude  grid. 


AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g_correct(p  g-spline(l)  gjrepeats(l) 
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G-REPEAT(L) 


WHO  I  Local  Commands 


G-REPEAT(L) 


NAME 


Repeats  -  performs  a  repeat  analysis  on  GEOSAT  GDR  data 

SYNOPSIS 

g-repeats  c???.axz* 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  each  of  the  file  names  on  the  command 
line.  The  mean  sea  surface  height  is  calculated  for  each  point  along  the  track  and 
subtracted  from  each  cycle.  A  sinusoidal  is  fit  to  the  difference  and  subtracted  from 
each  cycle.  The  variance  of  the  remainder  is  then  used  to  calculate  a  new  sinusoidal 
fit.  This  polynomial  is  then  removed  from  the  original  sea  surface  height  as  an  orbit 
error.  The  residual  height  for  each  cycle  is  written  to  a  file  with  the  record  number,  the 
latitude,  the  longitude,  the  residual  heights  along  with  the  two  sine  results.  Also  the 
statistics  for  each  point  are  printed  to  standard  output.  This  file  contains  the  record 
number,  the  latitude,  the  longitude,  the  mean  and  variance  of  the  corrected  heights, 
the  sum  of  the  squared  heights  and  the  number  of  points  used  for  the  statistics  of 
each  record.  All  heights  are  given  in  meters.  The  program  assumes  that  corrections 
have  been  applied  to  the  data  previously  and  the  data  has  been  splined  to  a  uniform 
latitude-longitude  grid. 


AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g-correct(l)  g-spline(l)  g .repeat (1) 


Sun  Release  4.0 


May  15,  1990 
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G-SEPOBJB(L) 


WHOI  Local  Commands 


G-SEPORB(L) 


NAME 


g-seporb  -  separates  raw  GEOSAT  GDR  data  into  ascending  and  descending  orbits 

SYNOPSIS 

g-seporb 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  itdin  and  separates  the  data  into 
ascending  and  descending  orbits  that  comply  with  the  naming  conventions  described 
in  geosat(l)  manual  page.  This  program  can  be  used  to  separate  data  directly  from  the 
NODC  data  tapes: 

dd  if=/dev/rmt8  ibs=16380  files =34  |  g_seporb 


BUGS 


Input  is  expected  to  have  at  least  two  valid  GDRs. 

AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g-region(l) 
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G-SPIKE(L) 


WHOI  Local  Commands 


G-SPIKE(L) 


NAME 


g-ipike  -  removes  spikes  from  GEOS  AT  GDR  data 

SYNOPSIS 

g-spike  [deitmax  neighbors  outlier] 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  tidin  and  removes  data  records  that 
appear  as  spikes  in  the  sea  surface  height.  The  program  assumes  that  corrections  have 
been  applied  to  the  data  previously.  Deitmax  is  the  amount  of  time  that  constitutes  a 
gap  between  continuous  segments  (default  is  3.3  seconds),  neighbors  is  the  number  of 
points  to  use  for  least  squares  fit  to  a  quadratic  polynomial  (default  is  13  points)  and 
outUer  is  the  maximum  acceptable  deviation  from  the  least  squares  fit  (default  is  0.20 
meters) 


AUTHOR 

Mike  Caruso  . 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g-correct(l) 


Sun  Release  4.0 


Mar  3,  1989 
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G-SPUNE(L) 


WHOI  Local  Commands 


G-SPLINE(L) 


NAME 


g-spline  -  splines  the  GEOSAT  GDR  data 
SYNOPSIS 

g-spline  [dir  min  mat  deltmax  time  step] 

DESCRIPTION 

This  program  reads  a  binary  GEOSAT  file  from  ttdin  and  breaks  the  data  into  con¬ 
tinuous  segments  where  a  gap  is  defined  by  dehmax  seconds  between  records.  This 
program  is  used  to  regrid  the  GDRs  to  a  consistent  latitude-longitude  grid.  The  al¬ 
gorithm  was  designed  so  that  at  least  one  point  lies  on  the  equator  crossing  and  each 
successive  point  is  timestcp  seconds  from  the  previous  point.  The  program  will  fill  gaps 
with  a  calculated  latitude  and  bad  values  (32767)  for  the  longitude  and  height  variables. 
Since  not  all  orbits  will  be  complete,  the  user  also  needs  to  specify  a  minimum  and 
mATimnm  latitude  or  longitude  with  min  and  max  and  the  direction  of  the  boundary 
with  dir.  If  dir  is  1,  the  record  is  filled  between  a  minimum  and  maximum  latitude 
and  if  dir  is  2,  the  record  is  filled  between  the  minimum  and  maximum  longitude.  The 
program  assumes  that  corrections  have  been  applied  to  the  data  previously  and  the 
data  is  free  of  abnormal  values  that  appear  as  spikes. 


AUTHOR 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  g.correct(l)  g-spike(l)  g-interp(l) 
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G-WHICH(L) 


WHOI  Local  Commands 


G-WHICH(L) 


NAME 

g.which  -  Prints  GEOSAT  orbit  numbers  from  a  specified  lat/lon  box 

SYNOPSIS 

g.which  minJat  maz-lat  min-lon  max-ion 

DESCRIPTION 

This  program  reads  the  minimum  and  maximum  latitudes  and  minimum  and  maximum 
longitudes  from  the  command  line  and  prints  the  orbit  numbers  contained  in  the  box. 
The  orbits  are  printed  within  curly  braces,  separated  by  commas  and  may  be  used  in 
a  set  of  pipes. 

cat  c000.‘g-which  30  45  280  300‘  |  g_ext  1  L 

If  only  two  arguments  are  given  to  the  program,  they  are  assumed  to  be  a  point 
and  the  nearest  ascending  and  descending  orbits  are  given. 

AUTHORS 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

Pierre  Flament 
Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI  96822 

SEE  ALSO 

geosat(l) 


Sim  Release  4.0 


Jan  16,  1989 
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S-EXT(L) 


WHOI  Local  Commands 


S-EXT(L) 


NAME 

s_ext  -  extracts  SSMI  data  and  prints  variables  in  ASCII 

SYNOPSIS 

s_ext  list 

DESCRIPTION 

This  program  reads  a  binary  SSMI  file  from  stdin  and  extracts  the  specified  variables 
on  stdovt  List  may  be  a  combination  of  one  or  more  of  the  following  variables,  in  any 
order  separated  by  spaces: 

Variable  Description 

t  time  in  seconds  since  START-TIME 

1  latitude  in  degrees 

L  east  longitude  in  degrees 

fl  flag  indicating  data  characteristics 

0  -  Over  ocean 

1  -  No  orbit  altitude  information 

2  -  Over  land 

3  -  Over  sea  ice 

ws  Wind  Speed 

vp  columnar  water  vapor 

cl  columnar  cloud  water 

m  rain  rate 

cws  SSMI  correction  for  water  vapor 

A  record  will  not  be  printed  if  any  of  the  requested  variables  contains  invalid  data 
(32767). 


AUTHORS 

Pierre  Flament 
Mimi  Baker 

Oceanography  Department 
University  of  Hawaii  . 
Honolulu,  HI  96822 

SEE  ALSO 

geosat(l) 
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S-REGION(L)  WHOI  Local  Commands  S-REGION(L) 

NAME 


s-region  -  Extracts  a  specified  region  from  a  SSMI  data  set 

SYNOPSIS 

s  -region  dir  min-lat  max-lat  min-lon  max-ton 

DESCRIPTION 

This  program  reads  a  binary  SSMI  file  from  tidin,  extracts  a  specified  region  and 
separates  the  data  into  ascending  and  descending  orbits  that  comply  with  the  naming 
conventions  described  in  geosat(l)  manual  page.  This  program  finds  the  data  that 
fall  within  the  latitude-longitude  box  given  by  the  parameters  min-lat  max-lat  min-lon 
max-ton  In  order  to  maintain  reasonable  orbit  lengths,  the  program  will  clip  the  orbits 
with  either  a  constant  latitude  boundary,  or  a  constant  longitude  boundary.  Therefore, 
orbits  that  would  normally  be  clipped  in  the  corners,  are  extended  to  either  the  constant 
latitude  or  longitude  boundary.  The  constant  direction  is  chosen  with  the  parameter 
dtrdir.  If  dir  is  1,  the  program  extracts  all  data  from  that  orbit  that  is  between  min-tat 
and  max-lat  If  dir  is  2,  the  program  extracts  all  data  that  is  between  min-lon  and 
max-ion. 

This  program  can  be  used  to  extract  data  directly  from  the  data  tapes: 
dd  if=/dev/rmt8  ibs=14400  |  s-region  1  10.0  30.0  280.0  300.0 


AUTHORS 

Mimi  Baker 

Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI  96822 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02543 

SEE  ALSO 

geosat(l)  gjegion(l)  gjeporb(l) 


Sim  Release  4.0 


Jem  3,  1990 
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B  Program  Listings 

This  section  contains  listing  of  all  programs  and  subroutines  discussed  in  sec¬ 
tions  5.1,  5.2  and  5.3.  Programs  are  listed  alphabetically  and  subroutines  follow 
the  programs. 
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Program  g_cleanl.c 


«(#)g_cleanl.c  l.S  6/13/90 

Program  g.cleanl.c 

Written  by: 

Michael  Caruso 

Woods  Hole  Oceanograhic  Institution 
Woods  Hole,  MA 

Purpose: 


This  is  the  first  step  in  cleaning  up  GEOSAT  data. 

This  program  sill  remove  bad  data  points  as  specified 
by  the  shell  variable  GMASK  (See  users  manual)  as  sell 
as  points  sith  sigma  height  >  30  cm  and  sigma  naught 
>  36  Db. 

Method: 


Reads  ran  GEOSAT  GDRs  from  standard  input  and  deletes  any 
records  that  are  not  sithin  specified  parameters.  Output 
is  in  GDR  format. 

Usage: 


The  GEOSAT  GDR  is  read  from  standard  input. 

cat  c000.a002  i  g.deanl  >  c000.a002c 

sill  remove  all  bad  records  from  the  GDR  in  c000.a002. 


Input : 

Stdin  Ras  GEOSAT  GDRs 

Output : 

Stdout:  Clean  GEOSAT  GDRs 

Subroutines  Required: 

geo.error  Prints  errors  to  standard  error 

geo.mask  Gets  mask  variable  GMASK 

References : 
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*/ 

#  include  <aath.h> 

#  include  <stdio.h> 

#  include  <atring .h> 

#  include  "geos.h" 

#deXine  SHBAD  30.0 
#define  SIB AD  3S00.0 
#deline  CHECKFL  12415 

int  i.j; 

int  bad; 

int  f l_bad; 

short  int  nek,  valid; 

union 

{ 

struct  flags  XI ; 
short  int  Xlagint ; 
>  d.Xlags ; 


/*  Value  Xor  bad  signa  height  */ 

/*  Value  Xor  bad  signa  naught  */ 

/*  Used  to  get  rid  oX  check  sun  flags  */ 


/*  To  allow  bit  operations  on  flags  */ 


main  (argc,argv) 
int  argc; 
char  *argvD ; 


/* 


Set  counters  to  zero... 

*/ 


int 

good.count 

= 

o; 

int 

n_h_count 

= 

0; 

int 

s .tide .count 

= 

0; 

int 

o.tide.count 

= 

0; 

int 

w.Xnoc.count 

= 

0; 

int 

d.Xnoc.count 

= 

0; 

int 

iono .count 

= 

0; 

int 

s_h_count 

= 

0; 

int 

s.nght .count 

= 

0; 

int 

Xlag.count 

= 

0; 

int 

tot.count 

0; 

Check 

Xor  arguments. 

*/ 


if  (argc  !=  1) 

X printf ( s tderr , "Usage :  Xs  <  Xilein  >  XiloutW  ,argv[0]); 
ezit(l) ; 
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/*  get  Iron  the  environment  which  bits  of  the  flags  should  be  nasked 
and  which  values  constitute  a  valid  frame  */ 

geo_mask(ftmsk,ftvalid) ; 

/* 

Loop  over  all  points  in  input  file... 

♦/ 

while  (f read( (char*)ftf r , 1 ,REC_LEH , stdin) ==REC_LEH) 

/*  get  rid  of  checksum  flags  0011000001111111  */ 

cl.flags.fi  =  fr.fl; 
cl.flags.flagint  ft=  CHECKFL; 

/*  set  bad  to  false  if  mask  of  the  data  flags  */ 

/*  is  not  equal  to  valid  mask  */ 

bad  =  (cl.flags.flagint  ft  msk)  !=  valid; 
if (bad)  f l_bad  =  BID; 

/* 

Check  all  records  for  any  bad  data.  Don’t  check  Time, 
lat  or  Ion.  Reject  if  ha  at  that  point  is  bad,  or  if  cet, 
cot,  cwf,  cdf  or  ci  is  bad. 

*/ 

bad  =  bad 

I  I  (fr.m.h  ==  BAD 

I  I  fr.s.tide  ==  BAD 

I I  fr.o_.tide  ==  BAD 
I  I  fr.w.fnoc  ==  BAD 

I  I  fr.d_.fnoc  ==  BAD 

II  f r . iono  ==  BAD 

1 1  fr.s_h  >  SHBAD 
II  fr.s.nght  >  SHBAD); 


if  (bad) 

if  (fr.m_h  ==  BAD)  m_h_count  +=  1; 
if  (fr.s.tide  ==  BAD)  s_tide_co\int  +=  1; 
if  (fr.o.tide  ==  BAD)  o_tide_count  +=  1; 
if  (fr.w.fnoc  ==  BAD)  w_fnoc_count  +=  1; 
if  (fr.d_fnoc  ==  BAD)  d_fnoc_count  +=  1; 
if  (fr.iono  ==  BAD)  iono.count  +=  1; 
if  (fr.s_h  >  SHBAD)  s_h_count  +=  1; 
if  (fr.s_nght  >  SHBAD)  s.nght .count  +=  1; 
if  (fl.bad  ==  BAD)  flag .count  +=  1; 

tot.count  +=  1; 
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> 

fl_bad  *  0; 

if  (bad)  continue ;  /*  If  bad  skip  print  and  get  next  point.  */ 

/* 

Write  out  good  data  records. 

*/ 

if  (fvrite((char  *)*fr,  1,  REC.LEX,  atdout)  !=  EEC_LEI) 

geo_error(3,argv[0] ) ; 
exit (3) ; 

> 

good.count  +=  1; 


> 

/* 

Write  out  statistics  on  rejected  points  to  standard  ontpnt... 

*/ 


fpr intf  ( stderr , "Xs :  Valid  points : \ty.8d\n"  ,argv[0]  ,good_count) ; 
fprintf (stderr, "YtHejected  points :%8d\n”,tot_count) ; 
fpr  intf  (  stderr ,  "\tHeight :  \t\t'/.8d\n"  ,n_h_count ) ; 
fprintf  (stderr ,  "YtSolid  Tide:\ty.8d\n,*,s_tide_count) ; 
fprintf ( stderr , "\t0cean  Tide : \tX8d\n" , o_tide_connt ) ; 
fprintf (stderr . M\tWet  FIOC : \t%8d\n" ,  e_f noc.connt) ; 
fprintf  ( stderr, "\tDry  FI0C:\ty.8d\n",  d_fnoc_connt)  ; 
fprintf  (stderr,  M\tIono:\t\ty,8d\n",  iono_count) ; 
fprintf (stderr, "\tSigna  Height :\t%8d\n",  s_h_connt); 
fprintf (stderr , "\tSigma  faught :\tX8d\n" ,  s _nght .count ) ; 
fprintf  (stderr ,  "\tFlags :  \t\ty,8d\n" ,  flag_count) ; 


> 
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Program  g_clean2.c 


«(#)g_dean2.c  1.3  12/15/89 

Prograa  g_dean2.c 
Written  by: 


Michael  Caruso 

Woods  Hole  Oceanograhic  Institution 
Woods  Hole,  HA 

Modifications : 

12-16-89  MC  nos  also  prints  total  nuaber  of  points  rejected. 
Purpose: 


This  prograa  sill  clean  a  GEOSAT  GDR  by  removing 
records  sith  heights  greater  than  10,000  ca  and  less 
than  -14,000  ca. 

Method: 


Reads  raw  GEOSAT  GDRs  from  standard  input  and  checks 
height.  Does  not  check  for  validity  of  input  and  assuaes 
input  data  has  had  corrections  applied  .  Output  is  in 
GDR  format. 

Usage : 


The  GEOSAT  GDR  is  read  from  standard  input, 
cat  c000.a002  I  g_clean2  >  c000.a002c 

sill  clean  all  bad  data  records  from  the  GDR  in  c000.a002. 


Input : 

Stdin  Ras  GEOSAT  GDRs 

Output : 

Stdout:  Corrects  GEOSAT  GDRs 

Subroutines  Required: 

geo.error  Prints  error  messages. 
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tolerances 


*/ 

#  include  <*ath.h> 

#  include  <stdio.h> 

#  include  <string.h> 

#  include  "geoa.h" 

•define  MII.HEIGHT  -14000 
•define  MAX.HEIGHT  10000 

main  (argc.argv) 
int  argc; 
char  *argvD; 


int  min.count  =  0; 
int  max.count  =  0; 
int  tot.count  =  0; 

il  (arge  !=  1) 

{ 

fprintf (stderr ."Usage:  %s  <  filein  >  f ileout\n" ,argv[0] ) ; 
exit(l); 

> 


while  (lread( (char*) Mr ,1 ,REC_LEI,stdin)==REC_LEI) 

/* 

Check  GDR  heights  here. 

*/ 

il  ((lr.m_h  <  MAX.HEIGHT)  II  (fr.m.h  >  MII.HEIGHT)) 

/* 

Write  out  good  data  records. 

*/ 

il  (lwrite( (char  1,  REC.LEI,  stdout)  !=  REC.LEI) 

geo.error (3 , argv  CO] ) ; 
exit(3) ; 

> 

> 

else 

{ 

il  (fr.m_h  >  MAX .HEIGHT)  max.count  +=  1; 
else  il  (fr.m.h  <  MII.HEIGHT)  min.count  +=  1; 

il  ((lr.n_h  >  MAX.HEIGHT)  II  (fr.m.h  <  MII.HEIGHT))  tot.count  +=  1 
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> 


> 

/* 

Print  raj action  nnabars . . . 

*/ 

i print! (stdarr,"%a:  Rajactad  points :%6d\n" ,  argvCo],  tot .count) ; 
fprintl(stdorr,H\tMaxiana  Haight : \t%8d\n" ,  a&z. count) ; 
fprintf (atdarr , "YtHininu*  Haight :\t%8d\n\n“,  nin.count); 
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Program  g.compresa.c 


/* 

6(#)g_compress.c  1.2  6/13/90 

Hritten  by: 

Piarra  Flament 
Oceanography  Dapartaant 
University  of  Hawaii 
Honolulu,  HI 

Modifications : 

Mika  Caruso 

Hoods  Hola  Oceanographic  Institution 
Hoods  Hols,  MA 

Purpose: 


compress  geosat  data  into  18  bytes/frame 


item 

parameter 

units 

range 

type 

1 

TIME  since  start  aOOO 

ms 

0  to 

1.47e9 

long  int 

(4) 

2 

height 

cm 

0  to 

32766 

short  int 

;  (2) 

3 

CYCLE  number 

0... 

char  (1) 

4 

LATITUDE 

10-4deg 

0  to 

18e5 

unsigned 

int 

(3) 

6 

LOIGITUDE 

10-4deg 

0  to 

36e5 

unsigned 

int 

(3) 

8 

SIGMA  HEIGHT 

cm 

0  to 

255 

unsigned 

char 

(1) 

7 

SHH 

5cm 

0  to 

255 

unsigned 

char 

(1) 

8 

So 

.ldb 

0  to 

255 

unsigned 

char 

(1) 

9 

FLAGS 

char  (1) 

10 

OCEAV  TIDE 

cm 

-128 

to  128 

char  (1) 

Method: 


Reads  in  GDR,  converts  to  18  byte  GDR  and  writes  to 
standard  output 

Usage : 


g.compress  <  file.gdr  >  file. 18b 
Input : 


GEOSAT  GDR 
Output: 
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18-byte  data  record 


Subroutines  required: 


References: 


*/ 

#  include  <stdio.b> 

#  define  PERIOD  6037.561518571 

#  define  START.TIME  58406188.43  /*  equator  ring  orbit  cOOO.aOOO  */ 

#  define  BAD  32767 

/*  this  is  the  standard  geosat  frame  */ 

struct  in.frame  { 

long  int  utc,utcm,lat ,lon,orb; 

short  int  a_h>s_hlgeoidth[10] ,swhla.swhls.nght,agc,s.age; 
char  f 1 [2] ; 

short  int  h_off ,s_tide,o_tidets_fnoc,w_smmr,d_fnoc,iono, 
dh_ssh,dh_fm,att ; 

>; 

struct  in.frame  in; 

/*  this  is  the  compressed  frame.  Order  is  important  since  compiler 
forces  short  int  on  even  word  boundaries  */ 

struct  out .frame  { 
long  int  utc; 
short  int  m_h; 
char  cycle_n; 
char  lat[3] ,lon[3] ; 
unsigned  char  s _h,ssh,s_nght; 
char  fl; 
char  o.tide; 

>; 

struct  out .frame  out; 
double  time , cycle=244*PERI0D ; 


int  i,j; 

struct  flags  *f; 
aain() 

< 

while(fread( (char*) Ain, 1 ,78,stdin)==78) 


out . cycle_n=0 ; 

tine  a  in. ate  -  START _T I ME ; 

while (tiae  >cycle) 

out . cycle _n++; 
tine  -=  cycle; 

> 

out. ate  =  nint(tine*1000.  +  in.atcn/1000.) ; 

in. let  »  nint (in. let/ 100.) ; 
in. let  +=  900000; 
out.lat[0]3*((char*)*in.lat+l) ; 
out .lat[l]=*((char*)*in.lat+2) ; 
out.lat[2]=*((char*)Ain.lat+3) ; 

in. Ion  3  aint(in. lon/100.) ; 
out. Ion [0] »*(( char*) Ain. lon+1) ; 
out .lon[l]=*((char*)Ain.lon+2) ; 
out .lon[2]=*((char*)Ain.lon+3) ; 

out  .a_h=in.n_h; 

out. a_h=(in.s_h>255?255: (unsigned  char)in.s_h) ; 
in. ash.  3  nint(in.awh/5.) ; 

out . »wh= ( in . swh>25S?255 : (unsigned  char) in . swh) ; 
in. s_nght  3  nint(in.s_nght/10. ) ; 

out. s_nght=(in.s_nght>255?255: (unsigned  char ) in . s _nght ) ; 
out.ll3in.llCl] ; 

in.o_.tide  =  nint(in.o_tide/10. ) ; 

out .o_tide=(abs(in.o_tide)>127?127 : (char)in.o_tide) ; 
lwrite((char*)Aout,l,18,stdout) ; 

> 
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Program  g_correct.c 


/* 

C(#)g_correct .c  1.2  6/13/90 

Program  g_correct . c 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanograhic  Institution 
Woods  Hole,  MA 

Added  comments  and  cleaned  up  some  code. 
Purpose: 


This  program  sill  apply  corrections  to  a  GEOSAT 

GDR  as  specified  in  the  GEOSAT  users  manual.  The  following 

correction  will  be  applied: 

h  =  h  solid  tide 

-  ocean  tide 

-  wet  tropospheric  correction  (fnoc) 

-  dry  tropospheric  correction  (fnoc) 

-  ionosphere  correction 

-  inverse  barometer  effect 

Where 

inverse  barometer  effect  =  -9.948  *  _(p  -  1013.3) 

And 

p  =  dry  (fnoc)  /  (-2.277)(1  +  (0.0028  *  cos(2  *  latitude))) 
Method: 


Reads  raw  GEOSAT  GORs  from  standard  input  and  applies 
corrections.  Does  not  check  for  validity  of  input.  Output 
is  in  GDR  format. 

Usage : 


The  GEOSAT  GDR  is  read  from  standard  input, 
cat  c000.a002  I  g.correct  >  c000.a002c 

will  apply  corrections  to  all  records  from  the  GDR  in  c000.a002. 


Input: 


Stdin  Raw  GEOSAT  GDRs 
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Output: 

Stdout:  Corrects  GEOS AT  GDRs 

Subroutines  Required: 

bar.c  Included,  Calculates  the  inverse  barometer  effect. 


References: 


*/ 

#  include  <aath.h> 

*  include  <stdio.h> 

#  include  <string.h> 

*  include  ./include/geos. h" 

It  include  ./include/g.ext.h" 

♦define  ITJMARGS  6 

int  i.j.iarg; 
main  (argc.argv) 
int  argc; 
char  *argv  □ ; 

{ 


float  bar(); 
float  corr; 

if  ((argc  <  1)  tt  (argc  >  IUMARGS+1)) 

i 

fprintf (stderr,"U8age:  y.s  [cet  cot  cwf  cdf  ci  cib]  <  filein  >  fileout\nM , 
argv [0] ) ; 

ezit(l) ; 

> 


while  (f read( (char*)« r , 1 ,REC_L£I , stdin) ==REC_LEI) 

/* 

Apply  corrections  here. 

*/ 

if (argc  ==  1)  /*  default  apply  all  corrections  */ 

fr.m_h  =  fr.m.h  -  nint((fr .s_tide  +  fr.o_.tide  +  fr.w.fnoc 

+  fr.d_fnoc  +  fr.iono 
+  bar(fr.d_fnoc,  fr .lat))/10.0) ; 

> 

else 

corr  =  0.0; 
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for  (iarg=l;  iarg<argc;  iarg++) 

{ 

it ( ! strcap(argv [iarg] ,val[25])) 
corr  +*  fr.s_tide; 

> 

elaa  if  (! strcop (argv [iarg] ,val [26])) 

{ 

corr  +=  ir.  o_ti.de ; 

> 

•Isa  if  (istrcmp (argv [iarg] ,val[27])) 
corr  +=  fr.w _fnoc; 

> 

•Isa  if  (!strcnp(argv[iarg] ,valC29])) 

{ 

corr  +=  fr.d.fnoc; 

> 

•Isa  il  ( !strcap(argv[iarg] ,val[30])) 

{ 

corr  +=  fr.iono; 

> 

•Isa  if  ( !strcmp(argv[iarg] ,val[34])) 
corr  +=  bar(fr.d_fnoc,  fr.lat); 

> 

else 

fprintf  (stdarr,"y.s:  illegal  option  ’/.s  ignored. \n"  ,argv[0]  , 
argv [iarg] ) ; 

> 

> 

> 

fr.*_h  =  fr.a_h  -  nint(corr/!C .0) ; 


Write  out  good  data  records. 

*/ 

if  (f writ a( (char  *)*lr,  1,  REC.LEN,  stdout)  !=  REC.LEH) 

{ 

gao.arror ( 3 , argv [0] ) ; 
exit (3) ; 

> 

> 

> 


float  bar(d_fnoc,  lat) 
short  d.fnoc; 
long  lat ; 
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{ 

float  p; 

p  =  (djfnoc  /  ((-2.277)*(1  +  (0.0026  *  cos(2*H_PI*lat*l.e-6/180.))))) ; 
p  =  -9.948  *  (p  -  1013.3); 
ratarn(p) ; 

> 
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Program  g.crossnum.c 


#(#)g_crossnum.c  1.3  6/14/90 

Program  g.crossnum.c 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA 

Purpose: 

To  print  out  the  longitude  o f  the  equator  crossing  o i 
a  given  orbit. 

Method: 

Reads  the  orbit  number  from  the  command  line  or  reads  a 
GDR  from  standard  input .  Calculates  the  equator  crossing 
and  prints  the  result. 

Usage  * 

g.croesnum  a002 
or 

g.crossnum  <  file.gdr 
Input : 

Stdin  GOR  file 

Output : 

Stdout  Longitude  of  orbit  crossing 

Assumptions: 


Longitude  is  given  as  E  positive  from  0  to  360  degrees . 
Subroutines  Required: 


geo.cyc.orb.c  Determines  eye  and  orb  from  GDR 

orb.cross.c  Determines  ehere  a  particular  orbit  crosses 

the  equator. 

References: 
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*/ 


•include  <stdio.h> 

# include  <math.h> 

# include  <string.h> 
•include  "geos.h" 


#deline  C_DEG  360.0/244.0  /*  Degrees  between  successive  geosat  crossings  */ 

main ( argc , argv ) 
int  argc; 
char  *argv[] ; 

iloat  orb_cross();  /*  Determines  long,  o f  equator  crossing  */ 

char  str[l0j;  /*  Strings  to  parse  input  */ 

char  *s ; 


int  i,  j; 
int  orb_num; 
int  asc; 
int  eye; 


/*  Counters  */ 

/*  Orbit  number  */ 

/*  True  if  asc  orbit  */ 
/*  Cycle  number  */ 


struct  frame  fr2; 


/*  GEOSAT  GDR  */ 


float  crossing; 


/*  Equator  crossing  in  degrees  */ 


/* 

Read  command  line  arguments . . . 

*/ 


if  (argc  >  2) 

fprintf  (stderr, "Usage:  */,s  orbit \n" , argv [0]  ) ; 
f printf ( stderr , "0r\n" ) ; 

fprintf  (stderr  ,'*%s  <  file.geoW,  argv[0]); 
exit(l) ; 

> 

if  (argc  ==  2)  /*  Read  orbit  number  from  command  line.  */ 

i 

strncpy(str,argv[l]+l,3) ; 
sscanf (str,"Xd",*orb_num) ; 
s  =  argvCl] ; 
switches) 

case  'a*: 

asc  =  TRUE; 

break ; 
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case  ’d': 
asc  =  FALSE; 

break; 

default: 

f print! ("‘/.a :  Illegal  argument :  V.s\n“ ,  argv  [0]  ,  argv  fl] ) 
exit(l) ; 

> 


> 

else  /*  Read  GDR  from  standard  input  */ 

•C 

if (fread((char  *)*fr,  1,  REC.LEH,  atdin)  !=  REC.LEH) 

1 

geo_error(3,  argv[0]); 
exit(l) ; 

> 

if (fread((char  *)*fr2,  1,  REC.LEH,  stdin)  !=  REC.LEH) 

geo_error(3,  argv[0]) ; 
exit(l) ; 

> 

if  ((fr2.1at  -  fr.lat)  >  0)  /*  Ascending  orbit  */ 

{ 

asc  =  TRUE; 

> 

else 

< 

asc  »  FALSE; 

> 

geo_cyc_orb(fr,  Acyc,  Aorb_num) ;  /*  Get  orbit  number  */ 


crossing  =  orb.croas (orb.num ,  asc);  /*  Get  crossing  */ 
fprintf  (atdout ,  "*/,f  Vn" ,  crossing) ; 


float  orb_cross(orb_num,  asc) 
int  orb.num,  asc; 

{ 

float  1  \J±L  J 
if  (asc) 

Ion  -  3S6.S9  -  orb_num*360.0*17./244. ; 

> 

else 

i 

Ion  =  189.14  -  orb_num*360.0*17./244. ; 

> 

while  (Ion  <  0.) 

•C 
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Ion  +*  360 . ; 


> 

return  (Ion) ; 
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Program  g-date.c 


C(#)g_date.c  1.3  6/14/90 
Written  by: 

Kenneth.  Borovski 

Woods  Hole  Oceanographic  Institution 
Woods  Sole,  MA  02543 

Modifications 


Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA 

Added  Comments  and  restructed  code  to  use  more  consistent 
naming  convention. 

Purpose: 


Decode  geosat  data  and  convert  Universal  Time  Coordinates  to 
month,  day,  year,  Julian  day,  and  day  of  cycle  for  the  first 
and  last  record  in  a  file 

Method: 


Usage : 

Gives  start  and  end  date  of  c000.a002 

Gives  start  and  end  date  of  all  orbits 
in  cycle  cOOO 

Input: 

Geosat  GDR 
Output : 

Start  and  end  time  of  GDR 
Subroutines  Required: 


cat  c000.a002  I  g.date 
cat  cOOO.*  I  g.date 


output 

julday 

kdate 


Outputs  start  and  end  times 
Calculates  Julian  day 
Converts  to  month  day  and  year 


#  include  <»tdio  ,h> 

#  include  <aetli.li> 

#  include  "geoa.li" 

long  int  utca,  ntco; 
main() 

fread((char*)*fr,l,REC_LEI,stdin) ; 
output (fr.ntc.fr. ntca) ; 

while (freed ( ( char* )ftf r , 1 , &EC.LEI , atdin)  ==  REC_LES)  { 
utca  =  fr.utc; 
ntca  =  fr.utca; 

> 

output (utca ,utca) ; 

> 

output (utca ,utcm) 
long  int  utca,  utca; 

int  days,y,a,d; 

int  aeconda .ainutea .hours ; 

int  orbit _nua_toc ; 

int  cycle_nua; 

int  orbit _nua; 

int  day_of_year; 

double  tiae; 

days  =  utca  /  86400; 

seconds  =  utca  X  86400; 

houra  =  aeconda  /  3600; 

ainutea  =  (seconds  X  3600)  /  60; 

aeconda  -  (seconds  X  3600)  X  60; 

kdate(days,ty,ftm,td) ; 

tiae  =  utca  +  utca  /  1.0e6; 

orbit_nua_tot  =  (int)floor((tima-TIME_ZER0)/PERI0D) ; 

orbit _nua  =  orbit _nua_tot  X  244; 

cycle _nua  =  orbit _nua  *  17  /  244; 

day_of_year  =  julday(y,a,d)  -  julday(y-l ,12,31) ; 

print! ("\n  0TC:  Xll.2f\n",  time); 

print! ( "  Data:  Xd/Xd/Xd  Xd:X.2d:X.2d\n",  m,d,y, hours, minut es, seconds) ; 

printfC  Day  of  year:  Xd\n",  day_o!_year) ; 
printfC  Julian:  Xd\n",  julday(y,m,d))  ; 

printfC  Day  of  cycle:  Xd\n\n",cycle_nua) ; 

> 

/*  URI  Julian  day  algoritha  */ 

julday(y,a,d) 

int  y,a,d;{ 

return(367*y  -7e(y  +  (a+9)/12)/4  -  3*((y  +  (m-9)/7)/100  +l)/4 
+  276*m/9  +  d  +  1721029); 
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> 

kdate(k,y,m,d) 

/*  converts  the  day,  k,  to  south,  day  and  year  */ 

/*  assumes  that  k  *  1  corresponds  to  Jan  1,  198S  */ 
int  k,*y,*«,*d; 
i 

k  =  k  +  30987; 

*y  =  (4  *  k  -  1)  /  1461; 

*d=4*k-l-  1461  *  (*y) ; 

*d  =  (*d  +  4)  /  4; 

*■  =  (6  *  (*d)  -  3)  /  163; 

*d  =  6  *  (*d)  -  3  -  153  *  (*m); 

*d  =  (*d  +  6)  /  6; 
it  (*■  <  10) 

*■=*■+  3; 
else  { 

9; 

*1  *  *1  *  i; 

> 
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Program  g.date2.c 


/* 

C(*)g_date2.c  1.3  6/14/90 
Written  by: 

Kenneth  Borovski 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  HA  02S43 

Modified  by: 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA  02S43 

Originally  began  as  g_date.c  and  converted  so  that  the  input  is 
a  cycle  number  and  an  orbit  number. 

Purpose: 


Head  a  cycle  and  orbit  number  and  determine  the  Universal  Time 
Coordinates  of  the  beginning  and  end  of  that  orbit  and  convert  to 
month,  day,  year,  Julian  day,  and  day  of  cycle  for  the  first 
and  last  record  in  a  file. 

Usage: 


g_date2  000  192 
Input: 


cycle  number 
orbit  number 

Output: 


Start  and  end  time  of  GDR  in  various  formats 
Subroutines  Required: 


output  Outputs  start  and  end  times 

julday  Calculates  Julian  Day 

kdats  Converts  to  month,  day  and  year 

geo_rcyc_orb  Returns  time  for  a  given  cycle  and  orbit 


-/ 


* include  <stdio.h> 
# include  <math.h> 
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# include  "geos.liM 


#deiine  IUMARGS  2  /♦  Vuaber  of  command  line  arga  */ 

♦define  CYARG  1  /*  lumber  of  cycle  arg.  */ 

♦define  ORARG  2  /*  lumber  of  orbit  arg.  */ 


long  int  utca,  utcm;  /*  Universal  time  variablea  secs,  microsecs  */ 


main ( arg c ,  argv) 
int  argc; 
char  *argvD; 


double  tine; 
int  cycle,  orbit; 


if  (argc  ! =  IUMARGS+1) 

fprintf (stderr , "Usage:  Xa  cycle  orbit \n“,  argv[0]); 
exit(l); 

> 


sscanf (argv [CYARG] ,"Xd",  Acycle) ; 
sscanf ( argv [ORARG] , "%d" ,  Aorbit) ; 

geo_rcyc_orb(*time,  cycle,  orbit); 
output (( int )time,0) ; 
geo_rcyc_orb(fttime,  cycle,  orbit+1); 
output (( int )time,0) ; 


> 


output (utca ,ut cm) 
long  int  utca,  utcm; 

{ 

int  days,y,m,d; 

int  aeconds, minutes, hours; 

int  orbit _num_tot ; 

int  cycle.num; 

int  orbit_num; 

int  day_of _year ; 

double  time; 

days  =  utca  /  86400; 

seconds  =  utca  X  86400; 

hours  -  seconds  /  3600; 

minutes  =  (seconds  X  3600)  /  60; 

aeconds  =  (aeconds  X  3600)  X  60; 

kdate(days,ty,ta,id) ; 

time  s  utca  +  utcm  /  1.0e6; 

orbit_num_tot  =  (int)floor((time-TIME_ZER0)/PERI0D) ; 
orbit _num  =  orbit _num_tot  X  244; 
cycle.num  =  orbit _num  *  17  /  244; 
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day_of_year  =  julday(y,a,d)  -  julday(y-l,12,31) ; 
printf(M\n  UTC:  Xll.2f\nH,  tine); 

printf("  Data:  Xd/Xd/Xd  Xd:X.2d:X-2d\n",  a, d,y, hours, ainutes, seconds) 
printfC  Day  of  year:  XdW,  day_of _year) ; 
printfC  Julian:  Xd\n",  julday(y,a,d)) ; 

printfC"  Day  of  cycle:  Xd\n\n",eycle_nua) ; 

> 

/*  TOI  Julian  day  algorithm  */ 

julday(y,n,d) 

int  y,a,d;{ 

return(367*y  -7*(y  ♦  (a+9)/12)/4  -  3*((y  +  (a-9)/7)/100  +0/4 
+  275*a/9  +  d  +  1721029); 

> 

kdate(k,y,a,d) 

/*  converts  the  day,  k,  to  aonth,  day  and  year  */ 

/*  as suae s  that  k  =  1  corresponds  to  Jan  1,  198S  */ 
int  k,*y,*a,*d; 

k  =  k  ♦  30987; 

*y  =  (4  *  k  -  1)  /  1461; 

*d=4*k-l-  1461  *  (*y) ; 

*d  *  (*d  +  4)  /  4; 

♦a  *  (6  *  (*d)  -  3)  /  153; 

*d  =  5  *  (*d)  -  3  -  153  *  (*a); 

*d  =  (*d  +  5)  /  5; 
if  (*a  <  10) 

♦a  *  *a  +  3; 
else  { 

•a  *  *a  -  9; 

*y  =  *y  +  1; 

> 


/* 

Subroutine  geo_rcyc_orb.c 

*/ 

int  goo_rcyc_orb(tiae,  eye,  orb) 
double  *tiaa ; 
int  eye; 
int  orb; 

{ 

int  orbit; 

orbit  =  eye  *  ORB_PER_CYC  +  orb; 


*tiae  =  orbit +PERI0D  +  TIME.ZEHO; 

} 
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Program  g.ext.c 


«(#)g_ext.c  1.4  4/25/90 

Program  g.ext.c 

Written  by: 


Pierre  Flament 
University  o f  Hawaii 
Honolulu,  HI  96822 

Modifications : 


Michael  Caruso 

Hoods  Hole  Oceanograhic  Institution 
Hoods  Hole,  MA 

Added  comments  and  cleaned  up  some  code. 
Purpose: 


To  extract  user  specified  data  from  a  6E0SAT  GDR. 
Method: 


Reads  ran  GEOSAT  GDRs  from  standard  input  and  applies 
corrections.  Reads  user  desired  output  variables  from 
command  line  arguments.  Hrite  output  on  standard  output. 

Output  is  in  ASCII  format. 

Usage : 

The  GEOSAT  GDR  is  read  from  standard  input  and  output  variables 
are  read  from  command  line. 

cat  c000.a002  I  g_ext  t  1  L  >  fila.asc 

will  extract  the  time,  the  latitude  and  the  longitude  for  each 
good  point  in  the  file  c000.a002. 

cat  c000.a002  I  gext  1  L  ha  >  file.asc 

will  extract  the  latitude,  the  longitude  and  the  sea  surface  height 
above  the  ellipsoid. 

Input: 


Stdin  Raw  GEOSAT  GDRs 

Output : 
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Stdout :  Extracted  data  in  ASCII  format 

Subroutines  Raquired: 


References: 


*/ 

#  include  <nath.h> 

#  include  <stdio.h> 

#  inclnda  <string.h> 

#  inclnda  "geos .h" 

#  Inclnda  "g_ert.h" 

#  define  MXP  26  /*  aax  number  of  parameters  */ 

#  define  PRIIT(X)  printf (form [col [i]] ,X) 


int  i.j; 
int  col  OOP]; 
int  bad; 

abort  int  mak, valid; 

char  *  getanvQ; 
double  h(),bar(); 

/*  gaoaat  data  frame,  (fee  this  instead  of  fr  to  get  two  arrays,  one 
long  int  and  one  short  int.  lead  to  be  careful  with  the  indices.  */ 

struct  { 

long  int  x[5] ; 
short  int  yClCHAI-5]; 

>  v; 

main  (argc.argv) 
int  argc; 
char  *argv  □ ; 


for( j=0; j<HXP; j++) 
colti]  =  -1; 

argc--; 

argv++; 

if  (argc==0) 

< 

fprintf (stderr ,"gext :  argument  error\n"); 
exit(l) ; 

> 
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/*  find  which  channels  should  be  processed 
1:  argument/column  index 
j :  channel  number 

col[i] :  channel  number  corresponding  to  column  i 
*/ 

for  (i=0;i<argc;i++) 
for  ( j  =0 ; j  <ICHAI+3 ; j  ++ ) 

if (!strcmp(argv[i3 ,val[j])) 

col[i]=j; 

break; 

} 

/*  get  from  the  environment  which  bits  of  the  flags  should  be  masked 
and  which  values  constitute  a  valid  frame  */ 

geo_mask(kmsk,kvalid) ; 

while  (fread((char*)kv,l,78,stdin)==78) 

if  (bad)  continue;  /*  If  bad  skip  print  and  get  next  point.  */ 

for  (i=0;i<argc;i++)  /*  Print  requested  data  */ 

if  (colCi]”0) 

PRIIT(v.x[0] *conv [0] +v  .x[l] *conv [l] -START.TIME) ; 
else  if  (col [i]<5) 

P&HT(v.x (col [i] ] *conv [col Ci3 3 ) ; 
else  if  (col [i]==5) 

PRIIT(v.y[0]*eonv[6] +v.y[19]*conv[24] ) ; 
else  if  (col[i3 <ICHAI) 

PRIIT(v.y[col[i3-53*conv[col[i33 ) ; 
else  if  (col(i3"VCHAI) 

PRIfT(barO); 
else  if  ( col [i] =-ICHAI+ 1 ) 

PRIIT(h()) ; 

else  if  ( col (i3  ==SCHAS +2 ) 

PRIIT(h()-v.y[23*conv[7] ) ; 
printf ("\n") ; 

> 

> 

double  h() 

/*  compute  corrected  height  based  on  suggested 
corrections  in  the  GEOSAT  altimeter  GDR  user  handbook 
*/ 

{ 

double  x; 

x=v . y [03  *conv [63  + v . y [193  *conv [243 
-v .  y  [203  *conv  [25] 
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-▼ . y [21] *conv [26] 

-v . y [22] *conv [27] 

-v . y [24] *coav [29] 

-▼ .y [25] +conv [30] j 
return(x-bar() ) ; 

> 

double  bar() 

/*  inverse  barometric  effect  in  a  using  the  formula 
provided  in  tbe  GEOS AT  altimeter  GDR  user  handbook 
*/ 
i 

double  p; 

p=  v . y [24] / (-2 . 277* ( 1+0 . 0028*cos (2*M_PI*v . x [2] *conv [2] /180 . ) ) ) ; 
return(-9.948*(p-1013.3)*l.e-3) ; 

} 
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Program  g -image. c 


/* 

fl(#)g_image.c  1.4  6/14/90 

Written  by: 

Pierre  Flaaent 
University  of  Hawaii 
Honolulu,  HI  96822 


Modified  by: 

Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA 

Changed  to  alios  different  output  sizes  and  to 
output  sdps  floating  point  format. 

Purpose: 

To  generate  bitmap  images  of  GEOSAT  data. 

Method: 

Reads  ascii  files  of  lat.  Ion,  z  and  converts  to 
a  bitmap  image  in  sdps  floating  point  format. 

Usage : 

gJLmage  20  40  190  210  512  512  <  file.asc  >  file.sdpsf 
Input: 

Stdin  All  lat,  Ion  and  z  values. 

Output : 

Stdout  Image  in  SDPS  floating  point  format 

Assumptions: 

Longitude  is  E  positive  from  0  to  360  degrees. 
Subroutines  Required: 

srite.sdps  Writes  out  an  SDPS  format  file. 
References : 
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Satellite  Data  Processing  Systea  (SDPS)  Users  Manual  T1.0, 

Michael  Caruso  and  Chris  Dunn,  Hoods  Bole  Qcsanog.  Inst.  Tech.  Kept., 
HHOI-89-13 


*/ 


# include  <stdio.h> 

# include  <nath.h> 

* include  "sdpsutil.h" 

/* 

Define  argument  places  here. 

*/ 

•define  IUMARGS  6 

•define  MVLAT  1 

•define  MXLAT  2 

•define  MVLOI  3 

•define  MXLOI  4 

•define  ROW  5 

•define  COL  6 

•define  SJDEG  20  /*  number  of  GEOSAT  samples  per  degree*/ 

main(argc.argv) 
int  arge; 
char  *argvD ; 


double  min.lat,  min.lon,  max.lat,  max.lon; 

double  lat.  Ion,  z; 

int  i,  j,  dlat,  dlon,  ilat,  ilon; 

int  roe ,  col ,  rowof f ,  i j ; 

struct  sdpsheader  header; 

struct  sdpsemap  cmap; 

float  *im; 

/* 

Read  command  line  arguments _ 

*/ 


if  (arge  ! =  IUMARGS+1) 

i 

f printf ( stderr , 

"Usage:  g.image  min.lat,  maz.lat,  min.lon,  maz.lon  row  col\nM); 
exit(l); 

> 

sscanf  (argvCMIUT]  ,  "Xlf "  .tain.lat ) ; 
sscanf(argv [MXLAT] ,"%lf " .tonax _lat) ; 
sacanf (argvCMILOI] ,"%lf" .tmin.lon) ; 
sscanf(argv [MXLOI] ,"%lf " ,toax_lon) ; 
sscanf (argvCROV] ,"%d",ftrou) ; 
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ascanf (argvCcOL]  ,"Xd",*col) ; 

/* 

Allocate  storage  for  la. . . 

*/ 


la  =  (float  *)malloc(sizeof (float)  *  roe  *  col); 


sidle  (Ifeof (stdin)) 

f scan! (stdin, "Xlf  Xlf  Xlf ".felat, felon, fez) ; 


/*  simple  registration  algorithm,  image  starts  at  top  left  corner  */ 

ilon= (lon-ain_lon) / (max.lon-min.lon) * ( col-1 ) ; 
if  (ilon<0  II  lion  >  col-1)  continue; 
ilat=row- 1- (lat-min_lat ) / (max.lat -ain_lat ) * ( row- 1 ) ; 
if  (ilat<0  II  ilat  >  row-1)  continue; 

/*  get  Ion  and  lat  ic tangle  size  */ 

dlon=  col * ( 360 . /244 . ) / (max_lon-min_lon) /2 . + 1 ; 
dlat=row/ (max_lat-min_lat ) /S_DEG+2 ; 


for( j=(ilat<0?0:ilat) ; j<ilat+dlat  ft*  j<row;j++) 

{ 

rowoff  =  j  *  col; 

for(i=  (ilon-dlon<0?0:ilon-dlon) ;i<=ilon+dlon  ftfe  i<col;i++) 

ij  =  rowoff  +  i; 
imCij]  =  (float)z; 

> 

> 

> 


/* 

Create  sdps  format  file.. 


header. annot  =  "Geosat  Image"; 

*/ 

strepy (header . annot,  "Geosat  Image"); 


header. type 
header. dim 
header. ind Co] 
header. ind Cl] 
header. ind C2] 
header. ind C3] 
header . inc  CO] 
header. inc Cl] 
header . inc  C2] 
header. inc C3] 


FLOAT; 

2; 


col; 

row; 

i; 

i; 

dlon; 

dlat; 

is 

i; 
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header. alop«  *  1.0; 
header .  intrcp  =  0.0; 
header. caap  *  0; 

srite_sdpa(stdoat.  header ,  cup,  la) 


Program  g-interp.c 


/* 


•(#)g_interp.c  1.3  12/15/89 

Program  g_interp. c 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanograhic  Institution 
Woods  Hole,  MA 

Modifications: 

12-15-89  MC  Changed  call  to  geo_cyc_orb  so  that  time  is 
passed  and  not  a  GDR. 


Purpose: 

This  program  sill  linearly  interpolate  all  geosat  GDR  data  except  the 
10  per  second  heights  and  the  flags  against  the  latitude  value. 

Method: 


1.  Break  data  into  continuous  segments 

2.  Interpolate  each  data  value  to  a  common  grid. 

3.  Write  out  all  data  between  min  and  max. 


Usage : 

The  GEOSAT  GDR  is  read  from  standard  input. 

cat  c000.a002  I  g.interp  dir  min  max  deltmax  timestep>  c000.a002s 

will  spline  the  records  from  the  GDR  in  e000.a002  between  min 
and  max  latitude  if  dir  is  1  and  between  min  and  max  longitudes 
if  dir  is  2. 


Input: 


Stdin 

dir 


min 

max 

deltmax 


Clean  GEOSAT  GDRs 

Determines  boundaries  of  spline: 

1  -  Use  latitude 

2  -  Use  longitude 
Minimum  lat  or  Ion. 

Maximum  lat  or  Ion. 

Maximum  gap  in  seconds  for  a  contiguous 

segment. 
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tiaestep 


lateral  bat se an  interpolated  points. 


Output: 


Stdout:  Interpolated  GEOSAT  GDRs .  Values  in  gaps 

between  valid  segments  are  set  to  all 
zeros. 

Subroutines  and  Subprograms  Required: 

geo_cyc_orb  Returns  tbs  cycle  nuaber  and  orbit  nuaber 
for  a  given  tiae. 

fit .time  Initializes  interpolation  variables  and  fits  an 

interpolation  to  the  tiae  variable, 
fit.data  Interpolates  between  points  of  a  given  data 

set. 

References: 


*/ 

♦  include  <matb.h> 

♦  include  <stdio.h> 

♦  include  "geos.b" 

#define  IUNARGS 
♦define  DIARG 
♦define  NIARG 
♦define  NAARG 
♦define  DEARG 
♦define  TIARG 
♦define  HICRO 
♦define  MAZP0I1TS 

/* 

Define  some  globals  to  share  with  fit  subprograms... 

*/ 

int  ii,  j,  k; 

int  latstart,  latstop; 

struct  frame  frsinCMAXFQIITS] ;  /*  frame  MAXPOIITS/2  is  defined  at  the  equator  */ 

struct  f raae  f rout [MAXPOIITS] ; 

float  tiaeatep; 

short  int  point s=0; 

float  *z; 

float  *y2; 

float  *lat; 

float  *j; 

float  zO,  ainval ,  mazval; 

/* 

Variables  for  orbit  analysis. 

*/ 
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int  eye,  orb; 

double  re,  rs3,  cosine,  prec,  rot,  dthdt; 
doable  tine,  theta,  ainth,  latO,  lonO,  top; 

short  int  seg_len[1000] ; 
short  int  seg_begClOOO] ; 

unsigned  char  ascorb; 

main  (argc.argv) 
int  arge; 
char  *argvQ ; 

/* 

Declare  subroutines  and  subprograms . . . 

*/ 


int  fit.timeQ; 
int  fit_data(); 
int  geo_cyc_orb() ; 


double  timel,  tiae2;  /*  time  variable  used  to  determine  gap  */ 

float  deltaaz; 

short  int  i; 

short  int  dir; 

short  int  segments  =  0; 


static  char  SccsIdQ  =  "fl(#)g_spline.c  1.4\t6/23/89"; 

x  =  (float  * ) calloc (MAXPOIITS ,  sizeof (float)) ; 
y2  =  (float  *)  calloc  (MAXPOIITS,  sizeof  (float)) ; 
y  =  (float  *) calloc (MAXPOIITS,  sizeof (float)) ; 
lat  =  (float  *) calloc (MAXPOIITS,  sizeof (float)) ; 


if  ((arge  ! =  IUMARGS+1)  kk  (arge  !=  1)) 
f print f ( stderr , 

"Usage:  Xs  [dir  min  max  deltmax  timestep]  <  filein  >  filout\n", 
argvCO]) ; 
exit(l); 

> 


if  (arge  ==  IUMARGS+1) 

sscanf (argv [DIARG] , "Xhd" ,  Adir) ; 
sscanf (argv [MIARG] , "Xf" ,  tainval) ; 
sscanf (argv CMAARG] ,"Xf",  ftmaxval) ; 
sscanf (argvCDEARG] , "Xf " ,  Adeltmax) ; 
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sscanl (argv [TIA&G] , "Xl" ,  ttiaestep) ; 

> 

•Isa 

f print! ( stderr , 

"Usage:  Xs  [dir  nin  aaz  deltmax  tine step]  <  lilain  >  lilout\n", 
argv[0] ) ; 

•xit(l); 


/* 

Read  in  all  GDEs . . . 

*/ 

ahile  (fread(  (char*)  Hr  sin.  [points]  ,  1  ,REC_LEI ,  stdin)==REC_LEI)  points++; 
points — ; 

il  (points  <=  0) 

lprintl(stderr,"Xs:  lo  points  to  spline\n\n" ,argv[0]) ; 

•xit(0) ; 

> 


/* 

Determine  il  orbit  is  ascending  or  descending... 

*/ 

il((lrsin[0] .lat  <  IrsinCl] .lat)  tt  (IrsinCl] .lat  <  Irsin [points]  .lat)) 
ascorb  ■  TRUE; 

> 

else  il ( (Irsin [0] .lat  >  IrsinCl] .lat)  Mt  (Irsin [1] .lat  >  Irsin [points] .lat)) 
ascorb  =  FALSE; 

> 

else 

lprintl(stderr,"Xs:  Unable  to  determine  il  orbit  is  ascending  or  "); 

fprintl (stderr , "descending\n" ,  argv [0] ) ; 

ezit(l); 

> 

/* 

Set  up  lor  direction.  Il  dir  !*  1,  then  ae 
find  the  latitude  that  corresponds  to  minion 
and  naxlon. 

*/ 

il  (dir  ! =  1) 

{ 

lon_to_lat ( ) ; 

> 


/* 

Fill  latitude  array  and  lind  starting  index... 
*/ 

lor  (1=0;  i<  HAXP0I1TS;  i++) 
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{ 

if  (ascorb) 

lat[i]  =  DEG*a>in(sin((i-MAXP0IITS/2)*tiin«>tep*H2PI/PEHI0D)*iin(IIC)); 
if  (minval  >  lat[i])  lat start  =  i+1; 

> 

•Isa 

< 

lat [i]  =  D£G*asin(sin(((MAXP0IITS/2)-i)*timeatep*M2PI/PERI0D)*Bin(IIC)); 
11  (maxval  <  lat[i])  latstart  =  i+1; 

> 


/* 

1.  Break  into  data  segments... 

*/ 

seg_len[0]  =  1; 
seg_beg[0]  =  0; 

time2  3  IrsinCO] .utc  +  lrsin[0] .utcm+HICRO; 
lor  (i=0;  Kpoints;  i++) 

timel  =  tiaa2; 

time2  =  lrsin[i+l] .utc  +  frsin[i+l] .utcm*MICRO; 
il  ((tine2  -  timel)  <=  deltmax) 
seg_len [segments] ++ ; 

> 

else 

i 

segments++; 

seg_beg [segments]  =  i  +  1; 
sag_len [segments]  =  1; 

} 

> 

il  (seg_len[0]  ==  0)  exit(l); 

/* 

2.  Initialize  data  and  lit  a  spline  to  each  segment... 
*/ 

lor(i=latstart;  KMAXPOIITS;  i++) 

Irout [i] . lat  =  (int) (lat [i] /MICRO) ; 

Irout [i] . Ion  =  BAD ; 
front [i] .m_h  =  BAD; 


lor  (i-0;  i<=segments;  i++) 

lit.tiae(i);  /*  initialize  spline  */ 
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fit_data(i,0) ; 
fit_data(i, 1) ; 
fit_data(i,2) ; 
fit_data(i,3) ; 
fit_data(i,4) j 
fit_data(i,6) ; 
lit_data(i,8) ; 
fit_data(i,7) ; 
lit_data(i ,8) ; 
fit_data(i,9) ; 
f it_data(i,10) 
fit_data(i,ll) 
fit_data(i,12) 
fit_data(i,13) 
iit_data(i,14) 
f it_data(i,15) 
fit_data(i,16) 
f it_data(i, 17) 
lit_data(i,18) 


/* 

Write  out  points... 

♦/ 


/*  Ion  */ 

/*  li  */ 

/*  orb  */ 

/*  s_h  */ 

/*  geoid  */ 
/*  sub  */ 

/*  s_ssb  */ 
/*  s_ngbt  */ 
/*  age  */ 

/*  s.agc  */ 
/*  s.tide  */ 
/*  o_tide  */ 
/*  s_fnoc  */ 
/*  u_smnr  */ 
/*  d_fnoc  */ 
/*  iono  */ 

/*  dh.swh  ♦/ 
/*  dh.fn  */ 
/*  att  */ 


lor  (k=latstart ;  k<j;  k++) 

if  (furite((cbar  *)*frout[k],  1,  REC.LEI,  stdout)  !=  REC.LEI) 

{ 

geo_error(3 ,argv [0] ) ; 
exit (3) ; 


> 


> 

/* 


Subroutine  fit .tine 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA 

Purpose: 

This  subprogran  fits  a  spline  to  the  tine  variable  in  a 
GEO SAT  GDR. 


*/ 

int  fit.tine(i) 
int  i; 
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double  yout ; 
ii  *=  0; 

for  (j=aeg_begCi] ;  j<«ag_beg[i]+aeg_len[i] ;  j++) 


x[ii]  =  frainCj] .lat*MICR0; 

y[ii]  =  (float) (frainCj] .utc  -  frainCaeg.begCi]] .utc) 
+  (float)frainCj] .utcm*MICR0; 
ii++; 

> 

xO  =  x[0]; 


j  =  latatart; 

while  ((aacorb  U  (latCj]  <  xO))  II  (iaacorb  U  (lat[j]  >  xO))) 

i 

j++; 

> 

while  ((latCj]  >  minvr 1 )  kk  (lat[j]  <  maxval)) 

if  ((aacorb  fth  (lat[j]  >  train Caeg_begCi]] .lat*MICR0)  kk 

(lat[j]  <  frainCaeg_beg[i]+aeg_lenCi]-l] .lat*MICR0))  II 
(!aacorb  kk  (latCj]  <  train Cseg_begCi]] .lat*MICR0)  kk 
(latCj]  >  frainCaeg_begCi]+aeg_lenCi]-l] .lat*MICR0)) ) 

{ 

ii  =  Oj 
if  (aacorb) 

while (xCii]  <  latCj]) 
ii++; 

> 

elae 

{ 

while(xCii]  >  latCj]) 
ii++; 

> 

linear ( (double ) x [ii] ,  (double ) y Cii] «  (double)xCii-l]  , 
(double)y [ii-1]  ,  (double)latCj] ,  ftyout); 

froutCj].utc  =  (int)yout  +  frsin[8eg_beg[i]] .utc; 
trout Cj] .utca  =  (int)((yout  -  (int)yout)/MICR0) ; 

> 

elae 

{ 

frout[j].lat  =  (int) (latCj] /MICRO) ; 
trout Cj] .utc  =  0; 
froutCj] .utca  =  0; 

> 

j++; 

> 

return; 
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> 

/* 


Subroutine  lit .date 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  Ml 

Purpose: 

This  subprogram  fits  a  spline  to  the  data  segnent 
specified. 


*/ 

int  fit_data(i,  var) 
int  i,  var; 
i 


double  yout; 
int  iyout; 
ii  =  0; 

for  (jsseg_beg[i] ;  j<seg_beg[i]+seg_l*n[i] ;  j++) 

•C 


x[ii]  =  frsinCj] .lat*MICR0; 
snitch  (var) 

i 

case  0: 

yCii]  »  (float)frsinCj] .Ion; 
break; 
case  1: 

yCii]  *  (float)frsin[j] .m_h; 
break; 
case  2: 

y[ii]  =  (float) frsinCj] .orb; 
break; 

case  3: 

y[ii]  *  (float)frsinCj] .s_h; 

break ; 
case  4: 

yCii]  =  (float)frsinCj] .geoid; 

break; 
case  5: 

yCii]  =  (float)frsinCj] .snh; 

break; 
case  6: 

yCii]  =  (float)frsinCj] .s_swh; 

break; 
case  7: 

yCii]  -  (float)frsinCj] .s_nght ; 

break; 
case  8: 

yCii]  =  (float)frsinCj] .age; 
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break; 
caaa  9: 

yCii]  *  (float ) train [j] .s.agc; 
break ; 
case  10: 

y[ii]  =  (float)frsinCj] . s_tide; 
break; 
case  11: 

yCii]  =  (float)frsia(j] .o_tide; 
break; 
case  12: 

yCii]  =  (float)frsinCj] .w_fnoc; 
break; 
case  13: 

yCii]  =  (float JlrsinCj]  .w_snnnr; 
break; 
case  14: 

yCii]  =  (float)frsinCj] .d.fnoc; 
break; 
case  15: 

yCii]  ■  (float)frainCj] .iono; 
break; 
case  16: 

y[ii]  =  (float )frsintj] .dh_swh; 
break; 
case  17: 

yCii]  *  (float )frsin[j] . dh_fm; 
break; 
case  18: 

yCii]  =  (float)frsin[j] . att; 
break; 
default : 
return(l) ; 

> 

ii++; 

> 

xO  =  xCO] ; 
j  =  latstart; 

while  ((ascorb  kk  (latCj]  <  xO))  II  (iascorb  kk  (lat[j]  >  xO))) 

i 

j++; 

> 

while  ((latCj]  >  minval)  kk  (latCj]  <  maxval)) 

< 

if  ((ascorb  kk  (latCj]  >  frsin[seg_beg[i]] .lat+MICRO)  kk 

(latCj]  <  frsinCseg_begCi]+seg_lenCi]-l] .lat*MICR0))  II 
(iascorb  kk  (latCj]  <  frsinCseg_begCi]] .lat*MICR0)  kk 
(latCj]  >  frsinCseg_begCi]+seg_leaCi]-l] .lat*HICR0))) 

ii  =  0; 
if  (ascorb] 
i 
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front [point] 
break; 
case  3: 

front [point] 
break; 
case  4: 

front [point] 
break; 
case  5: 
front [point] 
break; 
case  6: 

front [point] 
break; 
case  7: 

front [point] 
break; 
case  8: 

front [point] 
break; 
case  9: 

front [point] 
break; 
case  10: 

front [point] 
break; 
case  11: 

front [point] 
break; 
case  12: 

front [point] 
break; 
case  13: 

front [point] 
break; 
case  14: 

front [point] 
break; 
case  15: 

front [point] 
break; 
case  16: 

front [point] 
break; 
case  17: 

front [point] 
break; 
case  18: 

f rout [point] 
break; 
default : 
retnrn(l) ; 

> 


orb  =  data; 

s_k  =  data; 

geoid  =  data; 

.snh  =  data; 

s.seh  =  data; 

s_nght  =  data; 

age  =  data; 
s_agc  =  data; 

s.tide  =  data; 

o_tide  *  data; 

.v.fnoc  =  data; 

.n.amnr  -  data; 

.d.fnoc  =  data; 

.  iono  =  data; 

.dh.sek  =  data; 

.  dh_fa  =  data; 

.att  -  data; 


Subroutine  lon_to_lat 


Written  by: 

Michael  Carueo 

Woods  Hole  Oceanographic  Insititntion 
Woods  Hole,  Ml 

Purpose: 

This  subroutine  converts  the  ninval  and 
maxval  when  given  in  longitude  to  latitude. 


*/ 

int 

lon_to_lat() 

{ 

int  i; 

float  tmpval; 
double  tnptine; 

/*  Deternine  orbit  number  */ 

tmptime  =  frsin[0] .utc  +  frsin[0] .utcm*MICRO; 
geo_cyc_orb(tmptime ,  tcyc,  ftorb) ; 

rs  =  RE  +  fra in [0] .orb; 
rs3  »  rs*rs*rs; 
cosine  a  cos(IHCL); 

prec  =  -1.5*J2*sqrt(GM/rs)+RE*RE*cosinc/rs3; 
rot  =  prec  -  (H_PI_2/SD) ; 
dthdt  =  M2PI/PERI0D ; 

/* 

Loop  until  ve  find  min.lat  and 
max_lat . 

*/ 

lonO  *  frsinCo] .lon*1.0e-6*RAD; 
time  a  o.O; 


if  (aacorb) 

i 


i  a  0; 

while  (lonO  >  maxval* RAD) 


i++; 

lonO  a  frsinti] .lon*l .0e-6*RAD; 
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while  (lonO  <  aaxval*RAD) 

{ 

tins  -=  tiaeatep; 
theta  =  dthdt*time; 
ainth  =  sin(theta); 

latO  =  (trainCi] .lat*1.0e-6)*RAD  +  asin(sin(IfCL)*sin(theta)) ; 
tap  -  eosinc*sinth/coa(latO) ; 
tap  »  (tap>1.0)  ?  1.0  :  tap; 
tap  =  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  =  (aain(tmp)  +  rot*tiae)  +  trainCi] .lon*l .0e-6*RAD; 


lonO  =  train [points] .lon*1.0e-6*RAD; 
tapval  -  latO*DEG; 
tiaa  =  0.0; 
i  =  points; 

while  (lonO  <  minval*RAD) 

{ 

i— ; 

lonO  =  train [i] .Ion* 1.0e-6*RAD; 

> 

while  (lonO  >  minval*RAD) 

{ 

tine  +=  time step; 
theta  =  dthdt*time; 
ainth  =  ain(theta); 

latO  =  (frsinCi] .lat*1.0e-6)*RAD  +  asin(ain(IHCL)*ain(theta)) ; 
tap  =  coainc*sinth/cos(lat 0); 
tap  =  (tap>l .0)  ?  1.0  :  tap; 
tap  =  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  =  (asin(tap)  +  rot*tiae)  +  frain[i] .lon*1.0e-6*RAD; 

> 

ainval  =  tapval; 
aazval  =  latO*DEG ; 

> 

elae 


lonO  *  fraintO] .lon*1.0e-6*RAD; 
time  a  o.O; 
i  =  0; 

while  (lonO  >  marvel* RAD) 

( 

i++; 

lonO  =  IrainCi] .lon*1.0e-8*RAD; 


while  (lonO  <  maxval*RAD) 

{ 

tine  -*  tiaeatep; 
theta  =  dthdt*time; 
ainth  =  sin(theta); 

latO  =  (frain[i] .lat*1.0e-6)*RAD  *  aain(sin(IHCL)*sin(theta)) ; 
tap  =  cosinc*sinth/cos(latO) ; 
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tap  *  (tap>1.0)  ?  1.0  :  tap; 
tap  *  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  -  (asin(tap)  +  rot*tiaa)  *  frainti] .lon*1.0a-8*RAD; 

> 

aural  =  latO*DEG; 

lonO  =  frsinCpoints] . Ion* 1. Os-6 *&AD; 

tlaa  *  0.0; 

1  *  points; 

while  (lonO  <  ainval*RAD) 
i— ; 

lonO  =  fra  in  [i]  .lon*1.0a-6*RAD; 

> 

while  (lonO  >  ainval*RAD) 

< 

tins  +=  tine a tap ; 
theta  =  dthdt*tiae; 

.  sinth  =  ain(theta) ; 

latO  =  (frsinCi] .lat*1.0e-6)*RAD  +  asin(sin(IKCL)*sin(theta)) ; 

tap  =  cosinc*ainth/cos(latO) ; 
tap  =  (tap>1.0)  ?  1.0  :  tap; 
tap  =  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  =  (asin(tap)  ♦  rot*tiae)  +  frsinCi] .lon*l .0s-6*RAD; 

> 

ainval  *  latO*DEG; 

> 

> 
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Program  g.print.c 


•(#)g_print.c  1.3  6/ 14/90 

Written  by: 

Pierre  Fluent 
University  of  Hawaii 
Honolulu,  HI  96822 

Modifications : 

Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  Ml 

Added  Coaents  and  cleaned  up  some  of  code. 

Purpose: 

Decodes  Geosat  GDR  record  and  prints  in  a 
lengthy  format. 

Method: 

Heads  Geosat  GDR  froa  standard  input  and  converts 
each  element  to  ascii  and  prints  each  element  with 
an  identifier  to  standard  output. 

Usage: 

g_print  <  c???.a??? 

Input: 

c???.a???  Raw  Geosat  GDRs  from  standard  input. 
Output : 

Standard  Output  Formatted  output. 

Vote: 

The  flags  are  ordered  as  follows: 

FEDCBA9876543210 

share  0  is  the  zeroth  flag  bit 
and  F  is  the  fifteenth  flag  bit  as 
listed  in  the  Geosat  Altimeter  GDR  User 


Handbook 


Subrout in* a  Rsqoirad: 


Iona. 


*/ 

*  ix clods  <stdio.h> 

*  includa  "gaoa.h" 

/*  Labals  lor  output ...  */ 


char  *xlabD={  "utc  ", 
"utcn" , 

“lot  ", 

"Ion  ", 

"orb  "}; 

char  *ylab[>{  "«Ji  ", 
Ma_h 
"gaoid 
"h[l] 

"h[2] 

"h[3] 

"hC4] 

"hCfi] 

"h[fl] 

"hC7] 

"h[8] 

”h[9] 

"h[10]  ", 

"a»h  ", 

"a_auh  ", 

"■-naught  ", 
••age 

"a_agc  "> 

char  *zlabD=K  "h_oll  ", 
"*ol_tida" , 
"oc.tida  ", 
"uat.lnoc" , 
"wat_sanr" , 
"dry_lnoc" , 
"iono-gpa", 
"dh.auh  " , 
"dh.ln  " , 
"att  ">; 


short  int 
long  int 


i.J; 

racord  =  0; 


struct 


flags  *1 ; 


mainQ 

{ 


while (1 r aad( ( char* )  tfr , 1 , REC.LE5 , stdin) ==REC_LES) 

{ 

print! CM") j 

print! ("Racord  lunber :\tXl01d\n",++record) ; 
printlCXs  :\tXl01d\t",xlab[0] ,!r.ntc); 
printlCXs  : \tXl01d\n" , xlab [l]  ,fr .utcm) ; 
print!("Xs  :\tXl01d\t",xlab[2] .Ir.lat); 
printlCXs  :\tXl01d\n",xlab[3]  ,fr .Ion) ; 
printlCXs  : \tXl01d\n" ,xlab[4]  ,lr . orb) ; 

print!  C\n") ; 

printlCXs  :\tX8d\t" ,ylab[0]  ,lr.n_h) ; 
printlCXs  :\tX6d\n".ylabCl]  ,lr.s_h); 
printlCXs  :\tX8d\n" ,ylab[2]  ,lr  .gaoid) ; 
lor(i=0;  i<10;  i++) 

ilCiX2) 

printlCXs  :\tX6d\n" ,ylab[i+3]  ,lr .h[i]  )  ; 

•Isa 

printlCXs  :\tX8d\t",ylab[i+3]  ,lr.h[i]) ; 

> 

printlCXs  :\tX6d\t",ylabCl3]  .fr.swh); 
printlCXs  :\tX6d\n",ylab[14]  ,fr.s_swh); 
printlCXs  :\tX6d\n" .ylab[15]  ,lr.s_nght) ; 
printlCXs  :\tX6d\t",ylab[18]  ,lr.agc); 
printlCXs  :\tX6d\n".ylab[17]  ,lr.s_agc) ; 

1  =  t(lr.ll) ; 

print! ("\nllags  (0-15  right  to  lelt)  AtXdXdXdXdXdXdXdXdXdXdXdXdXdXdXdXdNnM", 
l->jnnkl5,l->jnnkl4,l->s,l->t ,l->junkll,f->juhkl0,l->junk09, 
l->junk08,l->jTink07,l->a6,l->a5,l->a4,l->h,l->r,l->d,l->w) ; 


printlCXs 
print! ("Xa 
printlCXs 
printlCXs 
printlCXs 
printlCXs 
printlCXs 
printlCXs 
printlCXs 
printlCXs 


:  \tX6d\n" , zlab [0] ,lr.h_oll) ; 
:\tX8d\t",zlab[l] ,lr  s.tide); 
:\tX6d\n" , zlab [2] ,lr.o_tide) ; 
: \tX6d\t “ , zlab [3] ,lr.w_lnoc) ; 
: \tX8d\t " , zlab [4]  ,lr.w_ snunr) ; 
: \tX8d\n" , zlab [5] , Ir . d_f noc ) ; 
:\tX8d\n",zlab[8] .Ir.iono) ; 
:\tX8d\n" , zlab [7] ,lr.dh_swh) ; 
:  \tX8d\n" , zlab [8] ,lr.dh_la) ; 
:\tX8d\n" , zlab [9] .Ir.att) ; 


> 


> 
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Program  g -region. c 


•(*)g_region.c  l.S  12/19/89 

Prograa  gjregion.c 
Written  by: 

Michael  Caruso 

Woods  Hols  Oceanographic  Institution 
Hoods  Hols,  HA 

Modifications: 


12-1S-89  MC  Changed  call  to  geo_cyc_orb  so  that  tins  is 
passed  and  not  a  GDR. 


Purpose: 

Decodes  GEOSAT  data  and  separates  ras  data  into  separate  orbits.  Each 
orbit  is  defined  as  beginning  at  the  northernmost  point  of  a  track. 

Each  orbit  is  further  separated  into  an  ascending  section  and  a  descending 
section.  Orbits  are  then  written  out  to  separate  files  of  the  fora: 


where 


■annn  or  cmmm.nnnd 


nan  is  the  cycle  number, 

nnn  is  the  orbit  number  for  that  cycle, 

a  signifies  ascending  portion, 

d  signifies  descending  portion. 


The  data  is  written  out  in  the  same  form  as  it  was  read  in.  This  is 
consecutive  records  of  78  bytes  each. 


Usage : 


The  program  reads  the  minimum  and  maximum  latitudes  and  longitudes 
from  the  command  line  and  reads  the  data  from  standard  input.  To 
use  the  prograa  to  extract  data  from  tape  (/dev/rmt8,  62S0bpi,  input 
block  size  10380)  HP  format  from  VODC,  from  101  to  301  and  280E  to 
300E: 


dd  if=/dev/rmt8  ibe=1038O  files=34  I  g.region  1  10  30  280  300 

The  first  number  on  the  argument  line  specifies  whether  the  box 
should  be  bounded  by  a  latitude  line(l)  or  a  longitude  line(2). 
lote  that  longitudes  are  all  east  of  Greenwich  and  if  the  box  selected 
spans  360E,  add  360  degrees  to  right  edge  of  box,  ie  350  365. 
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Input: 


Stdin  Raw  Gaosat  GDRs 

Output: 

cT?f .????  Gaoaat  data  within  region  separated  in  ascending  and 
descending  orbits. 


Subroutines  and  Subprograms  Required: 
geo_cyc_orb 
geo .which 


geo.error 

References: 


Returns  the  cycle  number  and  orbit  number 
for  a  given  time. 

returns  an  array  of  l’s  and  0’s  for  each  cycle 

within  the  desired  box. 

prints  error  messages  to  standard  error. 


Bugs: 


Assumes  input  data  contains  complete  orbits. 


*/ 


# include  <stdio.h> 

A include  <sys/file.h> 
# include  <math.h> 

# include  "geos.h" 

Adefine  VUHARG  5 
Adefine  DIRARG  1 
Adafine  M1LTABG  2 
Adefine  NXLTARG  3 
Adeline  MILVARG  4 
Adefine  NXLIARG  S 


main(argc,  argv) 
int  argc; 
char  *argv[] ; 


struct  frame  fr2; 


unsigned  char  a [ORB _ PER. CYC] , 


dCORB.PER.CYC] , 

c [ORB_PER_CYC] ;  /* 

arrays  of  orbits  within  box 

*/ 

char 

str[80] ;  /* 

string  for  output  file  name 

*/ 

int 

i.j;  /* 

Counters 

*/ 
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short  int 

dir; 

/*  Direction  of  lat/lon  boundary 

*/ 

short  int 

orbit _num_tot ; 

/*  the  total  number  of  orbits 

*/ 

int 

cycle_num; 

/*  the  number  of  cycles  since 

*/ 

int 

orbit _num; 

/*  orbit  number  si thin  cycle  0-244 

*/ 

short  int 

isopen  =  FALSE; 

/*  check  to  see  if  file  is  already  open  */ 

short  int 

asc; 

/*  flag  for  ascending  or  descending 

*/ 

long  int 

Hemp , 

11m in,  llmaz; 

/*  lat/lon  boundary 

*/ 

long  int 

lslopel , 
lslope2; 

/*  "Slope"  of  orbit 

*/ 

double 

min_lat , 

max_lat , 

min_lon, 

max.lon; 

/*  input  lon-lat  box 

*/ 

double 

time; 

/*  time  variable 

*/ 

FILE  *f dout ; 

/*  output  file  descriptor 

*/ 

/* 

Read  command  line  arguments. 

*/ 

if  (argc  >=  IUMARG  +  1) 

•C 

sscanf (argv [DIRARG]  ,  '"/did" ,  tdir) ; 
a  scan!  (argv  [HILT  ARC]  , '"/.l  f"  ,Amin_lat) ; 
sscanf (argv [MILTARG] , "Xlf " ,Amax_lat) ; 
sscanf (argv CNVLVA&G] ,'7.1f " ,Amin_lon) ; 
sscanf (argv [MXLIARG] ,'7,lf  " ,*max_lon) ; 

> 

else 

f print f ( stderr , 

"Usage:  %s  dir  min_lat  max_lat  oln.lon  max.lon  [orb#]\n"f  argvCO]); 
exit(l); 

> 


/*  determine  orbits  to  remove.  */ 

geo_vhich(min_lat ,  maz.lat,  min.lon,  maz.lon,  a,  d); 

/* 

Mask  out  orbit  numbers  if  given  on  command  line . . . 
*/ 

if  (argc  >  IUMARG+1) 

{ 

for  (i=6;  i<argc;  i++) 
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{ 

■■c*nf(argv[i],  "%d”,  *j); 
c[j]  =  TRUE; 

> 

lor  (i=0;  i<ORB_PER_CYC ;  i++) 

{ 

a[i]  =  a[i]  kk  c[i]; 
d[i]  =  dCi]  kk  c[i]; 

> 

> 


/*  Sot  llain,  Umax. . .  */ 


il  (dir  ==  1) 

11a in  =  (int) 
11a ax  ~  (int) 


also 

11a in  =  (int) 
Umax  =  (int) 

> 


(ain.latoi.0e06) ; 
(aax.latoi.0e06) ; 


(ain.lonoi.0e06) ; 
(aax.lonoi.0e06) ; 


/*  read  initial  lat  and  long  coordinates  */ 

il(lread((char  o)Mr,l, REC.LEH, stdin)  !=  REC.LEH) 

geo .error (2,  argv[0]); 
exit (2) ; 

} 

il (lread((char  o ) r2 , 1 , REC.LEH , s t din )  !=  REC.LEH) 

geo_error(2,  argv[0] ) ; 
exit (2) ; 

> 

/*  Determine  naae  ol  lirst  orbit  */ 

tine  *  Ir.ntc  +  ir.ntca  o  l.0e-6; 
lslopel  =  lr2.1at  -  fr.lat; 

geo_cyc_orb(tiae,  tcyde.nua,  fcorbit.num); 

/* 

Check  to  see  il  lirst  orbit  is  ascending  or 
descending. . . 

*/ 

il  (  lslopel  >  0  ) 

( 

sprint! (atr , ”c% . 3d . aX . 3d” , cycle_nua , orbit.nua) ; 
asc  =  TRUE; 
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> 

•Its  if  (  lslopel  <  0) 

{ 

sprint! (str ,"c%.3d.d%. 3d" , cy clejnum , orbit _num) ; 
ate  =  FALSE; 

} 

•1st 

i 

if  (fr.lat  <  0) 

{ 

sprint!  (str ,  "c'/t .  3d.  a% .  3d" ,  cycle.num ,  orbit  _num) ; 
asc-TEUE; 

> 

•It* 

■print! (str , "c% . 3d . dX . 3d" , cycl e_num , orbit  _num) ; 
as c= FALSE; 

> 

> 

/*  Check  to  tae  if  point  is  an  orbit  we  a ant  and  greater 
than  the  minimum  latitude  and  smaller  than  the 
maximum  latitude.  If  so,  write  to  the  output  file.  If 
the  output  file  is  not  open,  open  it  and  mark  it  as 
being  open.  */ 

Hemp  =  (dir  ==  1)  ?  fr.lat  :  fr.lon; 

if  (((ate  Aft  a[orbit_num]  )  II  (!asc  tft  d  [orbit  _num] ))  ftft  (Hemp  >  llmin) 
Aft  (Hemp  <  Umax)) 

if  (isopen  ==  0) 

fdout  =  fopen(atr,"a") ; 
isopen  =  1; 

> 

if (fwrite( (char  *)ftfr,l,REC_LEH, fdout)  !=  REC.LEN) 

{ 

geo_error(3,  argv[0]); 
exit (3) ; 

> 

> 

/* 

Check  second  point . . . 

*/ 

llcmp  =  (dir  ==  1)  ?  fr2.1at  :  fr2.1on; 

if(((asc  ftft  a[orbit_num] )  II  (!asc  ftft  d[orbit_num] ))  ftft  (llcmp  >  llmin) 
ftft  (llcmp  <  Umax)) 

if  (isopen  ==  0) 

{ 
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fdout  =  fopen(str ,"a") ; 
isopen  =  1; 

> 

if (f write ((char  * ) tlr 2 , 1 , REC _LEI , fdout )  !=  RECJLEI) 

< 

geo_error(3,  argv[0]); 
exit (3) ; 

> 

> 


/*  Read  in  rest  of  geosat  data.  Ve  keep  three  points  active 

to  Monitor  when  an  orbit  changes  from  ascending  to  descending. 
This  was  done  because  of  the  incomplete  data  at  high  latitudes. 
*/ 

fr  =  fr2; 

while (fread( (char  *)Mr2tl.REC_LEI,stdin)  ==  RECJLEI) 


lslope2  =  fr2.1at  -  fr.lat; 

if  ((lslopel  >  0  kk  lslope2  <=  0)  II  (lslopel  <  0  kk  lslope2  >=  0)) 
/*  Determine  name  of  next  orbit  */ 
time  =  fr2.utc  +  fr2.utcm  *  1.0e-6; 
geo_cyc_orb(time,  tcycle.num,  korbit.num); 
if  (  lslope2  >  0  ) 

sprint f  (str ,  "c '/, .  3d .  a'/, .  3d" ,  cy cle.num ,  orbit  _num) ; 
asc=TRUE; 

> 

else  if  (  lslope2  <  0  ) 

sprintf (str , "cX . 3d .dX . 3d" , cycle_num , orbit  _num) ; 
asc=FALSE; 

> 

else 

if  (fr2.1at  <  0  ) 

sprintf ( str , " cX ■ 3d . aX . 3d" , cy cle  _num , orbit  _num) ; 
asc=TRUE; 

> 

else 

{ 

sprintf ( str , "cX . 3d . dX . 3d" , cycle_num , orbit  _num) ; 
asc=FALSE; 
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> 

> 

fclose(fdout) ;  /♦  Close  previous  file  */ 

isopen  =0; 

> 

Heap  =  (dir  ==  1)  ?  fr2.1at  :  lr2.1on; 

il(((»sc  kk  a[orbit_num] )  II  (!asc  kk  d [orbit _nuo] ))  kk  (llcnp  >  lluin) 
kk  (llcap  <  llasz)) 
i 

if  (isopen  ==  0) 

fdont  =  fopen(str("a") ; 
isopen  -  1; 

> 

if (f write ((char  *)*fr2,l,REC_LE* .fdout)  !=  REC.LEI) 

{ 

geo .error (3,  argv[0]); 
exit (3) ; 

> 

> 

fr  =  fr2; 

lslopel  =  lslope2; 


> 


> 
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Program  g -repeat. c 


/* 

•(#)g_repeat.c  1.3  12/18/89 

Program  g_repaat.c 
Written  by: 

Michael  Caruso 

Woods  Hole  Ocaanograhic  Institution 
Woods  Hola,  MA 


Purpose: 


This  program  sill  perform  a  repeat  track  analysis 
of  geosat  GDR’s. 

Method: 


1.  Read  in  all  cycles 

2.  Calculate  the  mean  sea  surface  height  (m_h) 

3.  Subtract  mean  from  each  cycle. 

4.  Calculate  quadratic  regression  and  subtract  from 

each  cycle. 

5.  Calculate  a  second  regression  weighted  by  the 
inverse  of  the  variance  of  the  first  regression. 

6.  Subtract  new  fit  from  each  profile  to  obtain 
final  heights. 

7.  Calculate  mean  and  variance. 

8 .  Print  results . 


Usage : 

Each  GEOSAT  GDR  is  read  from  a  separate  file. 
g_repeat  c???.a002  >  data. text 

will  perform  a  repeat  track  analysis  from  the  cleaned  and  splined 
GDR’s  in  all  available  cycle  for  track  a002. 

Input : 

c???.a002  All  cycles  for  the  speciifed  track  cleaned 
and  splined. 

Output: 

Stdout:  Data  file  containing  the  latitude,  the 
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longitude,  the  mean  height (n) ,  the  in  height 
▼erienee  and  the  number  oi  valid  points  lor  each 
location  ol  a  given  orbit. 

c???.a002_r  Data  lile  containing  the  latitude,  the 
longitude  and  the  residual  height. 

Subroutines  Required: 


cr_mat_float 
cr _aat_double 
gauss.elim 

References: 


creates  a  floating  point  matrix, 
creates  a  double  precision  matrix, 
solves  linear  system  of  equations. 


♦/ 


*  include  <math.h> 

*  include  <stdio.h> 

*  include  "geos.h" 


#define 

MICRO 

l.e-fl 

/* 

#define 

MILLI 

l.e-2 

/* 

#define 

MAXPOIITS 

2915 

/* 

conversion  from  micro-deg  to  deg 
conversion  from  centimeter  to  meter 
Max  point  -70  to  + 70  degrees  latitude 


/* 


Global  Variables . . . 

*/ 


float 

**h; 

/♦ 

float 

**h_tmp; 

/* 

float 

♦mean; 

/* 

float 

♦mean2 ; 

/* 

float 

♦mean.lon; 

/* 

float 

♦lat; 

/* 

/♦ 

float  *var;  /* 

float  *var2 ; 


Original  Heights.  */ 

Temporary  Heights.  */ 

Mean  of  original  heights  (h)  */ 

Mean  of  original  heights  -  quad  orbit  corr.*/ 
Mean  of  Longitudes  ♦/ 

Latitudes  of  first  orbit.  */ 

We  don’t  find  mean„lat  because  the 
latitudes  are  fixed  in  a  previous 
program  such  as  g.spline 
♦/ 

Variance  of  original  heights  ♦/ 


int  ♦count; 
int  ♦count2; 


/*  Count  for  mean  and  var*/ 

/♦  Count  for  mean2  and  var2*/ 


double  ♦♦a,  *b; 
double  ♦xans ; 
float  ♦♦quadO; 
float  ♦♦quadl; 


/♦  Used  for  quadratic  fit*/ 

/♦  Used  for  quadratic  fit  */ 

/*  Keep  values  of  quadratic  fit  for  printing  ♦/ 

/*  Keep  values  of  quadratic  fit  for  printing  ♦/ 


int  ♦eye; 
int  maxeye; 


/♦  Xeep  track  of  good  and  bad  cycles.  ♦/ 
/♦  Maximum  number  of  good  points  at  each 


*/ 

♦/ 

♦/ 
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latitude  grid  point 
*/ 


int  i; 

int  i point ; 


/*  Counter  */ 

/*  Counter  for  points  read  in  for  each,  cycle, 
lote:  program  assumes  each  cycle  has  been 
regridded  to  a  common  grid  and  has  the  same 
number  of  points. 

*/ 


main  (argc.argv) 
int  argc; 
char  *argvD; 
i 

/* 

Declare  non-integer  subroutines: 

*/ 


float  **cr .mat .float () ; 
double  **cr_mat .double ( ) ; 


/* 

I/O  file  descriptors 

*/ 


FILE  *gfile,  *ofile; 


/* 

Various  counters. 

*/ 


int  iarg; 

int  ipointold; 

int  fill  *  FALSE; 


/«■ 

Temporary  variables  for  calculations  prior  to  printing. 

*/ 

float  htmp,  vtmp; 
float  fitO,  fitl; 

/* 

Wise,  variables. 

*/ 

int  err; 
char  str[80] ; 


/*  Returned  error  message.  •/ 

/*  String  for  filenames  etc.  */ 


/* 

Create  arrays  described  above... 

*/ 

h  =  cr .mat .float (argc .  MAXPOIHTS) ; 
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h_t«p 


*  cr_mat .float (arge,  MAXP0I1TS); 


naan 

mean2 

nean.lon 

lat 


=  (float  *)calloc(MAXPOIITS, 
=  (float  *)calloc(MAXPOIITS. 
*  (float  *)calloc(MAIPOIITS, 
«  (float  ♦JcallocdOXPOIlTS, 


slzaof (float)) ; 
■izaof (float)) ; 
sizeof (float)) ; 
alzeof (float)) ; 


var 

var2 


=  (float  *)calloc(MAXPOIVTS,  aizaof (float)) ; 
=  (float  *) calloc(MAXPOIITS ,  aizaof (float)) ; 


count  =  (int  *)calloc(MAXPOIITS,  aizaof (int)) ; 

connt2  =  (int  *)calloc(NAXPOIlTSt  aizaof (int)) ; 


eye 


=  (Int  *)calloc(argc,  aizaof (Int)) ; 


a 

b 

zana 

qaadO 

quadl 


-  cr_mat_double(3,3) ; 

=  (donbla  *)calloc(3,  aizaof (double)) ; 
=  (double  *)calloc(3,  aizaof (double)) ; 

-  cr_mat_f loat (arge , 3) ; 

=  cr_mat_float(argc,3) ; 


Check  count2  and  quadl  to  aee  if  they  vara  allocated  apace.  If  ao, 
aaaune  that  all  other  arraya  vara  allocated  ok. 

*/ 


if  ((quadl  ==  MULL)  II  (count 2  ==  TOLL)) 

i 

fprintf (atderr,"Xs:  Unable  to  allocate  enough  atorage  space. \n", 
argv[0]); 

exit(l); 

> 


/* 

Check  to  aee  if  program  ia  given  arguments... 

*/ 

if  (arge  ==  1) 

fprintf (stderr, "Usage:  */,s  c???.a000  >  f ileout .text\n" ,argv[0] ) ; 
ezit(l) ; 

> 


Read  in  all  GDRa  and  calculate  mean  and  variance... 
iarg  is  the  cycle  number  to  read  in. 

i point  is  the  along  track  point 

*/ 


for(iarg=0;  iarg<argc-l;  iarg++) 

< 

/* 

Open  each  input  file... 

*/ 
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il  ((gills  *  fopen(argv[iarg*l] ,"r"))  ==  TOLL) 

< 

fprintf (stderr,"%s:  Unable  to  open  file  X a.  Continuing. . An", 
argv[0] ,  argv[iarg+l] ) ; 
cyc[iarg]  =  BAD; 

continue;  /*  If  there  ia  no  file,  try  the  next  file.  */ 


i point  »  0; 

while  (lread( (char*) Air , 1 ,REC_LEI,gf ile)==REC_LEI) 

{ 

il  ( !lill)  /*  Fill  latitude  Iron  lirat  good  cycle.  */ 

i 

latCipoint]  =  fr.lat; 

> 

else  /*  Check  against  first  cycle  */ 

{  /*  to  aake  sure  points  line  up  */ 

if ((abs((int)lat[ipoint]-fr.lat)  >  1000)  kk  (fr.lat  !  =  0)) 

f pr inti ( stderr , 

"%s:  Repeat  tracks  out  ol  sync.  Offending  file:  Xa\n" , 
argv [0] ,  argv [iarg+1] ) ; 

exit(l) ; 

> 

> 

/* 

Store  Heights. . . 

*/ 

h[iarg]  [ipoint]  *  fr.m.h; 

/* 

Set  up  to  find  Bean  and  variances... 

*/ 

it  ((fr.B_h  ! =  BAD)  kk  (fr.lon  !=BAD) ) 

Bean [ipoint]  +=  fr.m.h ; 
var [ipoint]  +=  fr.a_h*fr .bJi; 
count [ipoint]  +*  1; 
aean.lon [ipoint]  +=  fr.lon; 

> 

ipoint** ; 


/* 

If  a  cycle  has  no  points.  Bark  that  cycle  as  BAD  and 
print  error  message. 

*/ 

if (ipoint  =8  0) 

cyc[iarg]  8  BAD; 
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i point  *  ipointold; 

fprinti (atderr ,  "X* :  Bad  ill*  %s,  no  data  f  oundW ,  urgv  [0]  ,  argv[iarg+l] ) ; 

> 

•Isa 

ipointold  =  ipoint; 
fill  =  TRUE; 

} 


> 


/«■ 

11  no  points  aoro  read ,  exit  program... 

*/ 

if  ((ipoint  «  0)  kk  (ipointold  ==  0)) 

{ 

Iprinti (stderr,"%s:  lo  points  read,  unable  to  perform  analysis. \n*',  argv[0]); 
•xit(l); 

> 

ipoint — ; 

/* 

Find  aoan  and  variance  ol  raw  data.  Also  lind  the  mean  Ion 
at  each  point  determine  the  maximum  number  ol  cycles, 
mean,  var,  meam.lon  and  maxcyc. 


calc_meanl() ; 


/* 

Calculate  quadratic  regression  ol  dillerence  and  subtract 
Irom  each  cycle . . . 

*/ 


lit_quad(argc,  0) ; 


/* 

Find  mean  and  var  ol  h.tmp. 
mean2  and  var. 

*/ 

calc_mean2() ; 


/* 

Zero  mean2 ,  var2  and  count2  and 
Calculate  weighted  regression... 

*/ 


zero_2() ; 

lit .quad ( arge ,  1); 


/* 

Find  mean  and  var  ol  h.tmp  alter  weighted 
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regressaion  -  aei m2  and  var. 

*/ 


calc_aean2() ; 


/+ 

Vrita  out  raaidnala  lor  each  good  cycla. 

Concatanata  "_r"  to  the  and  ol  tha  file  naaa.  This  was 
dona  instaad  ol  substitution  since  the  near  may  call  tha 
prograa  with  subdirectories  -  c000/c000.a002c,  in  which 
casa  a  pralix  would  change  tha  directory  name ;  or  il  the 
input  lile  does  not  and  with  an  additional  character  - 
c000.a002,  substituting  tha  last  character  would  allect 
tha  lila  naaa. 

Output  lila  loraat: 

lat  Ion  residual  litO  litl 

Where  tha  residual  is  h  -  haean,  and  litO  is 
the  resulting  lit  ol  tha  lirst  quadratic  and  litl 
is  the  lit  ol  tha  second  quadratic. 

*/ 


lor  (iarg=0;  iarg<argc-l;  iarg++) 

il(cyc[iarg]  ! »  BAD) 

strcpy (str , argv [iarg+1] ) ; 
strcat(str,"_r") ; 

il  ((olile  =  1 open (str,  "w"))  ==  HULL) 

{ 

Iprintl ( stderr , "'/,s :  Unable  to  open  lile  '/.s.  Continuing. .  An", 
argv CO],  str); 

continue;  /*  Try  next  lile.  */ 

} 

lor  (i=0;  Kipoint;  i++) 

{ 

il((h.tmpCiarg] Ci]  !*  BAD)  AA  (mean2[i]  ! =  BAD)) 

< 

htap  -  (h_tmpCiarg] [i]-aean2[i])*MILLI; 

> 

else 

htap  =  BAD*MILLI ; 

> 

litO  =  (quadOCiarg] [0]  +  (quadOCiarg] [l]+quadO[iarg] [2] *lat[i]) 
*lat[i])*MILLI; 

litl  =  (quadlCiarg] CO]  +  (quadlCiarg] [1] +quadl [iarg] [2]*lat[i]) 
•lat[i] )*MILLI; 

lprintl(olile,,,y.4d\t,/.8.41\tX8.41\ty.8.41\t,/.8.41\ty.8.41\nH,  i, 

lat(i]*HICR0,  mean_lon[i] *MICR0,  htap,  litO,  litl); 

> 


123 


f close(ofile) ; 


y 

> 

/* 

Writ*  out  statistics  to  standard  output. 

The  output  is: 

i  lat  mean.lon  mean2  var  var2  count 2 

Where  i  is  the  sequential  point  number,  lat  is  the  latitude 
at  that  point,  mean.lon  is  the  mean_lon,  mean2  is  the  mean  height 
sith  orbit  error  etc  removed,  var  is  the  variance,  var2  is  the  sun 
oi  squares  and  count2  is  the  number  of  cycles  that  sent  into  the 
statistics . . . 

*/ 

for  (i=0;  Kipoint;  i++) 
if  (nean2[i]  !=  BAD) 

vtmp  =  sqrt (var [i] ) *MILLI ; 

> 

else 

vtmp  =  BAD*MILLI ; 

> 

f printf (stdout , “%4d\ty.8 . 4f \t%8 . 4f \t%8 .4f \t%8 . 4f\tXl2 . 4f \tX3d\nH , 
i,  lat [i]*MICRO,  mean_lon[i] *MICRO,  mean2 [i] *MILLI , 
vtmp,  var2[i],  count2[i]); 

> 

fdose(str); 

> 


Subprogram  calcjneanlO 

Written  by:  Michael  Caruso 

Woods  Hole  Oceanographic  Institution 

Purpose:  This  subprogram  is  used  sith  g.repeat 
to  calculate  the  means  of  input  data. 

- */ 

calc_meanl() 

maxcyc  3  0; 

for  (i*0;  Kipoint;  i++) 

if  (count [ij  >  1)  /*  Check  for  at  least  tso  good  points.  */ 

< 

meanCi]  /=  count [i] ; 
mean.lonCi]  /*  count [i] ; 


124 


var[i]  =  var[i] /count [i]  -  mean[i]*mean[i]  ; 
maxcyc  =  (count  [i]  >  maxcyc)  ?  count  [i]  :  maxcyc; 

> 

•Isa 

{ 

■«an[i]  *  BAD; 
var[i]  =  BAD; 

> 

> 

> 


Subprogram  calc_mean2( ) 

Written  by:  Michael  Caruso 

Woods  Hola  Oceanographic  Institution 

Purpose:  This  subprogram  is  used  eith  g.repeat 
to  calculate  the  means  of  temp  data. 

calc_mean2() 

{ 

lor  (i=0;  Kipoint;  i++) 

if  (count2[i]  >  1)  /*  Check  for  at  least  two  good  points  */ 

mean2 [i]  /«  count 2 [i] ; 

var[i]  =  var2 [i] /count 2 [i]  -  mean2[i]*mean2[i] ; 

> 

else 

mean2[i]  =  BAD; 
varti]  =  BAD; 

> 

> 

> 

/* - 

Subprogram  fit_quad() 

Written  by:  Michael  Caruso 

Woods  Bole  Oceanographic  Institution 

Purpose:  This  subprogram  is  used  with  g.repeat 
to  fit  a  quadratic  to  an  arc. 

Method:  fit  a  quadratic  in  a  least  squares  sense.. 

num  x  xx 

a  =  x  xx  xxx 

xx  xxx  xxxx 


y  -  z 
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b  *  xy  -  xz 
xxy  -  xxz 


f it_q'nad(niiMcyc ,  past) 
int  nnacye; 
int  pui; 

int  iarg; 

double  x,  y,  z,  xx,  xy,  xz,  xxx,  xxy,  xxz,  xxxx; 
double  t,  t2,  t3,  t4; 
int  err; 
int  nua; 

lor  (iarg=0;  iarg<nuacyc-l;  iarg++) 
il( eye [iarg]  !=  BAD) 

/* 

Declare  duaay  arrays  lor  procedure . . . 

And  set  to  zero. 

*/ 

nua  -  0; 

x=y=z=xx=xy=xz=  xxx  =  xxy  =  xxz  =  xxxx  =  0.0; 

lor  (i=0;  Kipoint;  i++) 

{ 

il  (h[iargj [i]  !=  BAD) 

il  (count [i]  >=  aaxcyc/2) 

11  (ipaas) 

t  =  lat[i]  ; 

t2  =  t*t; 

t3  =  t2*t; 

t4  =  t3*t; 

x  +=  t; 

y  +=  bCiarg]  [i]  ; 

z  +=  aeanCi] ; 

xx  +=  t2; 

xy  +=  t*h[iarg] [i] ; 

xz  +=  t*mean[i] ; 

xxx  +=  t3; 

xxy  +=  t2*h[iarg] [i] ; 

xxz  +=  t2*mean[i]  ; 

xxxx  +=  t4; 

nua++; 

> 

else 

il  (varCil  !*  BAD) 
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t 

=  latCi]; 

t2 

=  t*t; 

t3 

=  t2*t; 

t4 

=  t3*t; 

z 

+=  t/varCi]; 

y 

+*  hCiarg]  Ci]/varCi] ; 

z 

+=  mean[i]/varCi] ; 

zz 

+=  t2/var  Ci] ; 

xy 

+=  t*hCiarg] Ci]/varCi] ; 

zz 

+=  t*meanCi]/var Ci] ; 

zzz 

+=  t3/varCi] ; 

zzy 

+=  t2*hCiarg] Ci]/varCi] 

zzz 

+=  t2*meanCi]/varCi] ; 

zzzz 

num++ ; 

+=  t4/varCi] ; 

II  ve  have  lass  than  three  points,  label  bad  cycle 
*/ 

if  (num  <  3) 

{ 

cycCiarg]  =  BAD; 
continue; 

> 

/* 

Set  up  natrices  and  solve  z*zans=b . . . 

*/ 

a [0]  [0]  =  nun; 

a[0]  [1]  =  aCl]  [0]  =  z; 

a[0]  [2]  =  a[l]  [1]  =  a[2][0]  =  zz; 

a  Cl]  C2]  =  aC2]  Cl]  =  tzz; 

aC2]C2]  =  zzzz; 

bCO]  =  y-z; 

bCl]  =  zy-zz; 

bC2]  =  zzy-zzz; 

err  =  gauss_elim(a,  3,  3,  b,  zans) ; 

/* 

Save  fit  parameters  for  later  printing... 

*/ 


for  (i=0;  i<3;  i++) 

i 

if (pass  ==  0) 

{ 

quadOCiarg] Ci]  =  zansCi]; 

> 
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•Isa 

quadl [iarg] [i]  =  zans  Ci] ; 

> 

> 

/* 

Subtract  regression  from  each  cycle... 

Put  result  into  h_tmp  and  keep  track  of 

data  for  mean  and  variance  calculation  -  calc_mean2. 

*/ 

for(i=0;  i<ipoint;  i++) 

if (bCiarg] [i]  !=  BAD) 

{ 

b_tmp[iargj [i]  =  h[iarg]  [i]-zans[0]- 

(zans [1] +xans [2] *lat [i] )*lat [i] ; 
mean2 [i]  +=  h_tmp  Ciarg] [i] ; 
var2[i]  +=  h_tmp[iarg] [i] *h_tmp[iarg] [i] ; 
count2[i]  +=  1; 

> 

else 

{ 

b_tmp Ciarg] [i]  =  BAD; 

> 

> 

> 

> 

> 

/* - 

Subprogram  zero_2() 

Written  by:  Micbael  Caruso 

Woods  Hole  Oceanographic  Institution 

Purpose:  This  subprogram  is  used  with  g.repeat 
to  zero  mean2  var2  and  count 2 

zero_2() 

for  (i=0;  Kipoint;  i++) 

mean2[i]  =  var2[i]  =  0.0; 
count2Ci]  =  0; 

> 

> 
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Program  g_repeata.c 


/* 

C(#)g_repeats.c  1.2  4/2S/90 

Written  by: 


Michael  Caruso 

Woods  Hole  Oceanograhie  Institution 
Woods  Hole,  MA 


Purpose: 

This  program  sill  perform  a  repeat  track  analysis 
of  geoaat  GDR’s. 

Method: 


1.  Head  in  all  cycles 

2.  Calculate  the  mean  sea  surface  height  (m_h) 

3.  Subtract  mean  from  each  cycle. 

4.  Calculate  sine  regression  and  subtract  from 
each  cycle. 

5.  Calculate  a  second  regression  seighted  by  the 
inverse  of  the  variance  of  the  first  regression. 

6.  Subtract  new  fit  from  each  profile  to  obtain 
final  heights. 

7.  Calculate  mean  and  variance. 

3 .  Print  results . 


Usage : 


Each  GEQSAT  GDR  is  read  from  a  separate  file. 
g_repeat  c???.a002  >  data. text 

will  perform  a  repeat  track  analysis  from  the  cleaned  and  splined 
GDR’s  in  all  available  cycle  for  track  a002. 

Input : 

c???.a002  All  cycles  for  the  specified  track  cleaned 
and  splined. 

Output : 


Stdout:  Data  file  containing  the  latitude,  the 

longitude ,  the  mean  height (m) ,  the  rms  height 
variance  and  the  number  of  valid  points  for  each 
location  of  a  given  orbit. 
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c???.a002_r  Data  file  contain! ag  the  latitude,  the 
longitude  and  the  residual  height. 

Subroutines  Required: 


cr_mat .float  creates  a  floating  point  matrix. 

cr_mat_double  creates  a  double  precision  matrix, 

gauss.elia  solves  linear  system  of  equations. 

References : 


*/ 

#  include  <math.h> 

#  include  <stdio.h> 

#  include  "geos.h" 


tdefine  MICRO  l.e-6  /*  conversion  from  micro-deg  to  deg  */ 
tdefine  MILLI  l.e-2  /*  conversion  from  centimeter  to  meter  */ 
#define  MAXPOIHTS  2915  /*  Max  point  -70  to  +70  degrees  latitude  */ 

#define  DEG_T0_RAD  M_PI/180.0  / *  Converstion  to  radians  */ 
tdefine  0M  2.0*M_PI/PERI0D  /*  Orbital  Omega  */ 
tdefine  M_2PI  2.0*M_PI  /*  2  *  PI  */ 
/* 

Global  Variables . . . 

*/ 


float  **h;  /*  Original  Heights.  */ 

float  **h_tmp;  /*  Temporary  Heights.  */ 

double  **times;  /*  Array  of  times  for  each  GDR  */ 

/*  Mean  of  original  heights  (h)  */ 

/*  Mean  of  original  heights  -  quad  orbit  corr.*/ 
/*  Mean  of  Longitudes  +/ 

/*  Latitudes  of  first  orbit.  */ 

/*  He  don’t  find  mean.lat  because  the 
latitudes  are  fixed  in  a  previous 
program  such  as  g.spline 
*/ 

float  *var;  /*  Variance  of  original  heights  */ 

float  *var2 ; 

int  * count;  /*  Count  for  mean  and  var*/ 

int  *count2 ;  /*  Count  lor  mean2  and  var2*/ 

double  **a,  *b;  /*  Used  for  quadratic  fit*/ 

double  *xans;  /*  Used  for  quadratic  fit  */ 

float  **quad0;  /*  Keep  values  of  quadratic  fit  for  printing  */ 

float  **quadl;  /*  Keep  values  of  quadratic  fit  for  printing  */ 


float  *mean; 
float  *mean2; 
float  *moan_lon; 
float  *lat; 
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int  *cyc; 
int  nucyc; 


int  i; 

int  ipoint ; 


/*  Keep  track  ol  good  and  bad  cycles.  */ 

/*  Maximum  number  ol  good  points  at  sack 
latitude  grid  point 
*/ 

/*  Counter  */ 

/*  Counter  lor  points  read  in  lor  each  cycle, 
lote:  program  assumes  each  cycle  has  been 
regridded  to  a  common  grid  and  has  the  same 
number  ol  points. 

*/ 


main  (argc.argv) 
int  argc; 
char  +argvO  ; 

/* 

Declare  non-integer  subroutines: 

*/ 


lloat  **cr_mat_lloat() ; 
double  **cr_mat .double () ; 


/* 

I/O  lile  descriptors 

*/ 


FILE  *glile,  *olile; 


/* 

Various  counters. 

*/ 


int  iarg; 

int  ipointold; 

int  lill  =  FALSE; 


/* 

Temporary  variables  lor  calculations  prior  to  printing. 

*/ 

lloat  htmp,  vtmp; 
lloat  litO,  litl; 
lloat  t; 

/* 

Misc.  variables. 

*/ 

int  err; 
char  str [80] ; 


/*  Returned  error  message.  */ 

/*  String  lor  lilenames  etc.  */ 


/* 
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Create  arrays  described  above . . . 


h_tmp 

tines 


=  cr .mat .float (arge,  MAXPOISTS) ; 

=  cr .mat .float (arge,  MAXPOISTS); 

=  cr .mat .double (arge,  MAXPOISTS); 


mean 
me  m2 
mean.lon 
lat 


=  (float  *)calloc(MAXPOISTS,  sizeof (float)) ; 
=  (float  *)calloc(MAXPOISTS,  sizeof (float)) ; 
-  (float  *)calloc (MAXPOISTS,  sizeof (float)) ; 
=  (float  Ocalloc  (HAXPOIITS,  sizeof  (float)) ; 


var  =  (float  *)calloc(MAXPOISTS,  sizeof (float)) ; 

var2  =  (float  *)calloc(MAXPOISTS,  sizeof (float)) ; 


count  =  (int  *)calloc (MAXPOISTS,  sizeof (int)) ; 

count2  =  (int  *)calloc(MAXPOISTS,  sizeof (int)) ; 


eye 


*  (int  *)calloc(argc,  sizeof (int)) ; 


a 

b 

xans 

quadO 

quadl 


=  cr_mat_double(3,3) ; 

=  (double  *)calloc(3,  sizeof (double)) ; 
-  (double  *)calloc(3,  sizeof (double) ) ; 
=  cr.mat .float (arge , 3) ; 

=  cr .mat .float (arge, 3) ; 


Check  count2  and  quadl  to  see  if  they  sere  allocated  space.  If  so, 
assume  that  all  other  arrays  sere  allocated  ok. 

*/ 


if  ((quadl  ==  IULL)  II  (count 2  ==  HULL)) 

f print! ( stderr , "fts :  Unable  to  allocate  enough  storage  space. \n", 
argvtO] ) ; 

exit(l) ; 

> 


/* 

Check  to  see  if  program  is  given  arguments... 

*/ 

if  (arge  ==  1) 

{ 

f print! ( stderr, "Usage:  y.s  c???.a000  >  fileout.text\n" ,argv[0] ) ; 
exit(l) ; 

> 


/* 

Read  in  all  GDRs  and  calculate  mean  and  variance... 
iarg  is  the  cycle  number  to  read  in. 

ipoint  is  the  along  track  point 

*/ 

for(iarg=0;  iarg<argc-l;  iarg++) 
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/* 

Open  each  input  file... 

*/ 

if  ((gfile  =  f open(argv [iarg+1] ,"r"))  ==  IULL) 

fprintf (stderr,"Xs:  Unable  to  open  file  %a.  Continuing. . An" , 
argv[0] ,  argvCiarg+1] ) ; 
cycCiarg]  =  BAD; 

continue;  /*  If  there  is  no  file,  try  the  next  file.  */ 

> 

i point  =  0; 

while  (freed ( ( char* ) ftf  r , 1 , REC.LEV .gfile) ==REC_LEI ) 

i 

if  (!fill)  /*  Fill  latitude  from  first  good  cycle.  */ 

i 

latCipoint]  =  fr.lat; 

> 

else  /*  Check  against  first  cycle  */ 

{  /*  to  make  sure  points  line  up  */ 

if ((abs((int)lat[ipoint]-fr.lat)  >  1000)  kt  (fr.lat  !=  0)) 

fprintf ( stderr , 

"Xs:  Repeat  tracks  out  of  sync.  Offending  file:  Xs\n", 
argvCO],  argvCiarg+1] ) ; 
exit(l) ; 

> 

> 

/* 

Store  Heights  and  times . . . 

lote:  Subtract  time  zero  to  keep  times  small. 

*/ 

hCiarg] [ipoint]  =  fr.m.h; 

times [iarg] [ipoint]  =  (fr .utc+fr .utcm*MICR0)  -  TIME_ZER0; 


/* 

Set  up  to  find  mean  and  variances... 
*/ 

if  ((fr.m.h  !=  BAD)  ft*  (fr.lon  !=BAD)) 

mean [ipoint]  +=  fr.m.h; 
var [ipoint]  +-  fr.m_h*fr .m.h; 
count [ipoint]  +=  1; 
mean.lonCipoint]  +=  fr.lon; 

> 

ipoint++; 
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/* 

If  a  cycle  has  no  points,  nark  that  cycls  as  BAD  and 
print  srror  message. 

*/ 

if (ipoint  ==  0) 

{ 

cyc[iarg]  =  BAD; 
ipoint  =  ipoint old; 

fprintf  (stderr ,  "‘/.a :  Bad  fils  Xs ,  no  data  f ound\n" , argv  [0]  , 
argvCiarg+1] ) ; 

> 

•lss 

ipoint old  =  ipoint; 
fill  =  TRUE; 

> 

} 

/* 

If  no  points  soro  read,  exit  program. . . 

♦/ 

if  ((ipoint  ==  0)  AA  (ipoint old  ==  0)) 

fprintf (stderr, "Xs:  Vo  points  read,  unable  to  perform  analysis. \n“, 
argv [0] ) ; 
exit(l) ; 

> 

ipoint — ; 

/* 

Find  mean  and  variance  of  ras  data.  Also  find  the  mean  Ion 
at  each  point  and  determine  the  maximum  number  of  cycles, 
mean,  var,  mean.lon  and  maxcyc. 

*/ 

calc.meanlO ; 

/* 

Calculate  quadratic  regression  of  difference  and  subtract 
from  each  cycle . . . 

*/ 

f it_sin(argc,  0); 

/* 

Find  mean  and  var  of  h.tmp. 
mean2  and  var. 

*/ 

calc_mean2() ; 

/* 

Zero  mean2,  var2  and  count2  and 
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Calculate  weighted  ragreaaion. . . 

*/ 


zaro_2() ; 
fit_sin(argc,  1); 

/* 

Find  naan  and  var  of  h_tap  after  weighted 
regreaaaion  -  aaan2  and  var. 

*/ 

calc_aaan2() ; 

/* 

Write  oat  residaala  for  each  good  cycle. 

Concatenate  "_rH  to  the  end  of  the  file  naae.  This  was 
done  instead  of  substitution  since  the  user  nay  call  the 
program  with  subdirectories  -  c000/c000.a002c,  in  which 
case  a  prefix  would  change  the  directory  naae;  or  if  the 
input  file  does  not  end  with  an  additional  character  - 
c000.a002,  substituting  the  last  character  would  affect 
the  file  naae. 

Output  file  fornat: 

lat  Ion  residual  fitO  fitl 

Where  the  residual  is  h  -  haean,  and  fitO  is 
the  resulting  fit  of  the  first  quadratic  and  fitl 
is  the  fit  of  the  second  quadratic. 

*/ 


for  (iarg=0 ;  iarg<argc-l;  iarg++) 

if(cyc[iarg]  !=  BAD) 

strcpy(str ,argv[iarg+l] ) ; 
strcat(str,"_r") ; 

if  ((ofile  =  fopen(str,  V))  ==  BULL) 

fprintf (stderr,"%s:  Unable  to  open  file  %a.  Continuing. . An", 
argv[0],  str); 

continue;  /*  Try  next  file.  •/ 

> 

for  (i=0;  Kipoint;  i++) 

{ 

if  ((h.tapCiarg]  [i]  ! =  BAD)  ft*  (aean2[i]  ! =  BAD)) 

{ 

htap  *  (h_tap[iarg] [i)-aean2[i])*MILLI; 
t  =  remainder (0H*t iaes [iarg] [i] ,  M.2PI); 
fitO  =  (quadOCiarg] CO]  ♦  quadOCiarg] [1] *cos(t)  + 
quadOCiarg] [2]*sin(t))*MILLI; 
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fitl  *  (quadl [iarg]  [0]  +  quadl [iarg]  [l]*cos(t)  ♦ 
quadl [iarg] [2)*sin(t))*MILLI; 

> 

«li* 

htmp  *  BADMILLI; 
fitO  *  fitl  =  BAD; 

> 

f print! (of ile ,  My.4d\ty,8 .4f \ty,8 . 4f \tX8 . 4f \t%8 . 4f \ty,8 . 4f  \nH ,  i , 
lat [i] MICRO ,  mean.lon [i] MICRO ,  htmp,  fitO,  fitl); 

} 

f close(of ile) ; 

> 


> 

Writs  out  statistics  to  standard  output. 

Tbs  output  is: 

i  lat  mean.lon  mean2  var  var2  count2 

Where  i  is  the  sequential  point  number,  lat  is  the  latitude 
at  that  point,  aean_lon  is  the  mean.lon,  mean2  is  the  mean  height 
uith  orbit  error  etc  removed,  var  is  the  variance,  var2  is  the  sum 
of  squares  and  count2  is  the  number  of  cycles  that  sent  into  the 
statistics . . . 

t 

for  (i=0;  Kipoint;  i++) 
if  (mean2 [i]  !=  BAD) 

vtmp  a  sqrt (var [i] ) MILLI ; 

> 

else 

vtmp  a  BADMILLI ; 

> 

f  print!  (  stdout ,  "%4d\t%8 . 4f  \ty,8 . 4f  \t'/,8 . 4f  \ty,8 . 4f\tXl2 . 4f  \ty,3d\n" , 
i.  lat [i] MICRO ,  aean.lon[i] MICRO,  mean2  [i]  MILLI , 
vtmp,  var2[i],  count2[i]); 

> 

fclose(str) ; 


> 

/* - 

Subprogram  calc_meanl() 

Written  by:  Michael  Caruso 

Woods  Bole  Oceanographic  Institution 

Purpose:  This  subprogram  is  used  vith  g.repeat 
to  calculate  the  means  of  input  data. 
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/*  Check  tor  et  least  two  good  points.  */ 


calc.meanl ( ) 

{ 

mar eye  =  0; 

lor  (1*0;  Kipoint;  1++) 

{ 

11  (count  [1]  >  1) 

meanCi]  /=  count [1]; 
maan.lonCi]  /*  count [1] ; 
var[i]  *  var [i] /count Ci]  -  mean  [i] *nean [i] ; 
maxcyc  *  (count  Cl]  >  maxcyc)  ?  count  Cl]  :  maxcyc; 

> 

else 

{ 

■esnCi]  *  BAD; 

▼arCl]  *  BAD; 

} 

> 

> 


Subprogram  calc_mean2() 

Written  by:  Michael  Caruso 

Woods  Hole  Oceanographic  Institution 

Purpose:  This  subprogram  is  used  with  g.repeat 
to  calculate  the  means  o 1  temp  data. 

calc_mean2() 

{ 

lor  (i=0;  Kipoint;  i++) 

{ 

il  (count2Ci]  >  1)  /*  Check  1 or  at  least  tuo  good  points  */ 

{ 

mean2Ci]  /=  count2Ci]; 

varCi]  *  var2Ci]/count2Ci]  -  mean2 [i] ♦meau2 [i] ; 

> 

else 

mean2Ci]  *  BAD; 
varCi]  *  BAD; 

> 

> 

> 


Subprogram  lit.ainO 

Written  by:  Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
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Purpose:  This  subprogram  is  used  with.  g_rspeat 
to  fit  a  sin  to  an  arc. 

Method:  lit  a  sin  in  a  least  squares  sense.. 

nua  z  zz 

a  =  z  zzz  zzzz 

ZZ  TTTT  TTTTT 

7  -  * 

b  =  zy  -  zz 

zzy  -  zzz 


lit_sin(nuncyc,  pass) 
int  nuacyc; 
int  pass; 


double  zt  y,  z,  zz,  zy,  zz,  zzz,  zzy,  zzz,  zzzz,  zzzzz; 
double  t;  /*  Variable  to  lit  to  */ 

double  sin_t,  cos_t;  /*  Sin(t),  Cos(t)  */ 

int  iarg; 
int  err; 
int  nun; 

lor  (iarg=0;  iarg<nuncyc-l;  iarg++) 

if(cyc[iarg]  !=  BAD) 

{ 

/* 

Declare  dummy  arrays  lor  procedure... 

And  set  to  zero. 

*/ 

num  =  0; 

x-y  =  z  =  xx  =  xy  =  xz  =  xxx  =  zzy  =  zzz  =  zzzz  =  zzzzz  =  0.0; 

lor  (i=0;  Kipoint;  i++) 

{ 

il  (hCiarg] Ci]  !=  BAD) 

i 

il  ( count [i]  >=  mazcyc/2) 

{ 

il  (!pass) 

{ 

t  =  remainder (0M*times[iarg3 [i] ,  M_2PI) 

cos_t  =  cos(t); 

sin.t  =  sin(t); 

z  +=  cos_t; 

y  +=  hCiarg) Ci) ; 

z  +=  meantij ; 

xx  +=  sin_t ; 
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+= 

cos_t*hCiarg] Ci] ; 

xz 

+= 

eos_t*meanCi] ; 

xxx 

+= 

cos_t*cos_t; 

xxy 

+= 

sin_t*h[iarg]  Ci]  ; 

xxz 

+= 

ain_t*meanCi] ; 

xxxx 

+= 

cos_t*sin_t ; 

xxxxx 

nnm++; 

+= 

sin_t*sin_t; 

> 

else 


if  (varCi]  !  =  BAD) 

i 

\ 

t  • 

=  remainder (0M*times  Ciarg] C 
M.2PI); 

cos_t 

=  cos(t); 

sin_t 

*  sin(t); 

X 

+=  cos_t/varCi] ; 

y 

h Ciarg] Ci] /varCi] ; 

z 

+=  mean Ci] /var Ci] ; 

XX 

+=  sin_t/varCi] ; 

xy 

+=  cos _t*h Ciarg] Ci] /varCi] ; 

xz 

+=  cos_t*meanCi] /varCi] ; 

xxx 

+=  cos_t*cos_t/varCi] ; 

xxy 

+=  sin_t*h Ciarg] Ci] /varCi] ; 

xxz 

+=  sin_t*meanCi] /varCi] ; 

xxxx 

+=  cos_t*sin_t/varCi] ; 

xxxxx 

num++ ; 

> 

+=  sin_t*sin_t/varCi] ; 

> 

> 

> 

> 

/* 

If  se  have  less  than  three  points,  label  bad  cycle 
*/ 

if  (nun  <  3) 

{ 

eye  Ciarg]  =  BAD ; 
continue; 

> 

/* 

Set  up  matrices  and  solve  x*xans=b... 

*/ 

a  CO]  [0]  =  nun; 

a[0]  [1]  =  a [1]  [0]  =  x; 

aC0]C2]  =  aC2]C0]  =  xx; 

aCl]Cl]  =  xxx; 

aCl]C2]  =  aC2]Cl]  =  xxxx; 

aC2]C2]  =  xxxxx; 

bCO]  =  y-z; 
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b[l]  *  xy-xz; 
b[2]  =  xxy-xxz; 

•xx  a  gauss_elim(a,  3,  3,  b,  xans); 


Sava  lit  parameters  lor  later  printing... 
*/ 


lor  (i=0;  i<3;  i++) 

{ 

il (pass  ==  0) 

{ 

qnadO  Ciarg] [i]  =  xans Ci] ; 

> 

else 

i 

qnadl Ciarg] [i]  =  xans [i] ; 

> 


Subtract  regression  Irom  each  cycle... 

Put  result  into  h_tmp  and  keep  track  o 1 
data  lor  mean  and  variance  calculation  -  calc  mean2. 
*/ 


lor (1*0;  Kipoint;  i++) 

{ 

il(h[iarg] [i]  ! =  BAD) 

t  *  remainder (OH* times Ciarg] [i] ,  M_2PI); 
h_tmp Ciarg] Ci]  =_h[iarg] Ci]-xansCO]-xansCl]*cos(t)- 
xans  C2] *sin(t) ; 
nean2Ci]  ♦*  h_tmp Ciarg] Ci] ; 
var2Ci]  +=  h_tmp Ciarg] Ci]*h_tmp Ciarg] Ci] ; 
count2Ci]  +=  1; 

> 

else 

h_tmp Ciarg] [i]  *  BAD; 


Subprogram  zero_2() 


Written  by:  Michael  Caruso 

Woods  Hole  Oceanographic  Institution 


Purpose:  This  subprogram  is  used  with  g.repeat 
to  zero  mean2  var2  and  count2 
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z«ro_2() 

for  (i=0;  Kipoiat;  i++) 

{ 

nean2[i]  =  var2[i]  =  0.0; 
connt2  Ci]  =  0; 

> 
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Program  g_seporb.c 


/* 

®(#)g_seporb.c  1.4  6/14/90 

Written  by: 


Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  HA 

Modifications : 


12-16-89  MC  Changed  call  to  geo_cyc_orb  so  that  tine  is 
passed  and  not  a  GDR. 


Purpose: 


Read  raw  GEOS AT  GDR  and  splits  data  into  separate  orbits.  Each 
orbit  is  defined  as  beginning  at  the  northernmost  point  of  a  track. 

Each  orbit  is  further  separated  into  an  ascending  section  and  a  descending 
section.  Orbits  are  then  written  out  to  separate  files  of  the  form: 

cmmm.annn  or  cmmm.nnnd 

where 

mmm  is  the  cycle  number, 

nnn  is  the  orbit  number  for  that  cycle, 

a  signifies  ascending  portion, 

d  signifies  descending  portion. 

The  data  is  written  out  in  the  same  form  as  it  was  read’  in.  This  is 
consecutive  records  of  78  bytes  each.  The  last  point  of  an  ascending 
or  descending  orbit  is  the  most  northern  or  most  southern  point  of 
that  orbit. 

Method: 


Reads  ran  GEQSAT  GDR  from  standard  input.  Calculates  correct  filename 
using  convention  shown  above.  Tests  to  see  when  slope  of  lat/lon  track 
changes  sign  which  indicates  change  from  ascending  to  descending  or 
descending  to  ascending  part  of  orbit. 

Usage: 


The  data  is  read  from  standard  input  such  as  direct  from  the  HODC 
data  tapes: 

dd  if=/dev/rmt8  ibs=16380  files=34  I  g.seporb 

This  would  separate  all  the  files  into  the  correct  orbits. 

HOTE:  input  file  must  have  at  least  two  points. 
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Input: 

Stdin  Eat  Geosat  GDRs . 

Output : 

c???.????  Separated  GEOSAT  data. 

Subroutines  Required: 

geo.cyc.orb  Returns  tbs  cycle  number  and  orbit  .number 
lor  a  given  time. 

geo.error  Prints  error  messages. 


*/ 

#indude  <stdio.h> 

# in elude  <sys/file.h> 
# include  <math . h> 

# include  "geos.b" 

mai  (arge,  argv) 
int  arge; 
char  *argv  □  ; 


struct  frame  lr2; 

char  str[80] ; 

short  int  orbit  jaum.tot ; 

int  cycle.num; 

int  orbit .num; 

long  int  lvlopel,  lslope2; 


double  time; 
FILE  *1 dout ; 


/*  read  initial  data  record...  */ 

if (freed ((char  ♦)*fr,  1,  REC.LEH,  stdin)  !=  REC.LEH) 

geo.error ( 3 ,  argv [0] ) ; 
ezit(l) ; 

> 

/*  read  second  data  record...  */ 

if (fread((char  *)Mr2,  1,  REC.LEH,  stdin)  !=  REC.LEH) 
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geo_error (3 ,  mrgvCO]); 
exit(l); 


> 


/*  Dat ermine  name  of  first  orbit  */ 

time  =  fr.ntc  +  fr.utcm*1.0e-6; 
lslopel  =  fr2.1at  -  fr.lat; 

geo_cyc_orb(time,  tcycle.num,  *orbit_mun) ; 

if  (  lslopel  >  0  )  /*  If  lslopel  >  0  ascending  orbit  else  descending  */ 

sprintf (str("c%.3d.a%.3d",cycle_nnm,orbit_num) ; 
else  if  (  lslopel  <  0) 

sprintf ( str , " cX . 3d . dX . 3d" , cy  cle  _ntun , orbit  _num) ; 

else 

{ 

if  (fr.lat  <  0) 

sprintf (str,"cX. 3d. aX. 3d" ,cycle_num,orbit_num) ; 

> 

else 

( 

sprintf  (str  t"cX.3d.dX.  3d" ,  cycle  _ntun ,  orbit  _num) ; 

> 

> 

fdont  =  fopen(str,"a") ;  /*  open  a  nee  file  or  append  an  old  */ 


/*  Write  ont  first  two  records  to  opened  file...  */ 

if (fwrite((cbar  *)tfr,  1,  REC_LEH,  fdout)  !=  REC.LEH) 

geo_error(3,  argv[0]); 
exit (3) ; 

> 

if (f write ((char  *)*fr2,  1,  REC_LES,  fdout)  !=  REC.LEH) 

( 

geo_error(3,  argv[0]); 
exit (3) ; 

> 

/*  Read  in  rest  of  geosat  data  */ 
fr  =  fr2; 

while (fread( (char  *)*Xr2,  1,  REC.LEV,  stdin)  ==  REC  LE5) 
lslope2  =  fr2.1at  -  fr.lat; 

if  ((lslopel  >  0  kk  lslope2  <=  0)  ||  (lslopel  <  0  kk  lslope2  >=  0)) 

( 

/*  Determine  name  of  next  orbit  */ 
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time  *  lr2.utc  +  fr2.utcn  *  1.0«-6; 


gao_cyc_orb(time,  *cycle_num,  korbit_xmm) ; 
if  (  lslope2  >  0  ) 

■print! ( str , " c % . 3d . aX . 3d" , cy cle.nno , orbit  _num) ; 
also  i!  (  lslopa2  <  0) 

sprint!  (  str , "  cY.  .  3d .  d% .  3d" ,  cy  c  1  e_num ,  orbit  _num) ; 

•Isa 

{ 

i!  (Ir.lat  <  0) 

{ 

sprint! ( str , "cX . 3d . aft . 3d" , cy cla.nnm , orbit  _nua) ; 

> 

•Isa 

sprint!  (  str , "  cy. .  3d .  dX .  3d" ,  cy  cl  a  _num ,  orbit  _ntun) ; 

> 

> 

lclose(fdont) ;  /*  Close  previous  file  */ 

fdout  =  f open (str, "a") ;  /*  Open  new  or  append  file*/ 


i!(f write ((char  *)*fr2,  1.  REC.LEH,  !dout)  !=  REC_LEH) 
{ 

geo_error(3 ,  argv[0]); 
exit (3) ; 


Ir  =  lr2; 
lslopel  =  lslope2; 


> 


> 


145 


Program  g -spike. c 


/* 

C(#)g_spike.c  1.4  11/14/80 
Program  g_spike.c 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanograhic  Institution 
Woods  Hole,  MA 


Purpose: 

This  program  sill  remove  spikes  from  data  by  a  series 
of  quadratic  fits. 

Method: 


1.  Break  data  into  continuous  segments 

2.  Fit  each  segment  with  a  quadratic 

3.  If  fit  is  within  outlier,  keep  point 
else,  remove  two  worst  points  and 
fit  segment  with  another  quadratic. 

4.  If  fit  is  within  outlier,  keep  point 
else,  calculate  a  linear  fit. 

5.  If  linear  fit  is  within  outlier,  keep 
point.  Else  reject  point  as  bad 

6.  Delete  points  that  do  not  have  enough 
neighbors  and  segments  that  do  not  have 
enough  points. 


Usage: 

The  GEOSAT  GDR  is  read  from  standard  input. 

cat  c000.a002  I  g.spike  deltmaz  neighbors  outlier  >  c000.a002s 
will  remove  the  spike  records  from  the  GDR  in  c000.a002. 


Input: 


Stdin 

deltmaz 

neighbors 

outliers 


Clean  GEOSAT  GDRs 
Seconds  that  define  gap  in  record 
lumber  of  neighbors  required  for  spline. 
Centimeters  for  rejection  of  point  after 
spline  fit. 
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Output : 

Stdout:  GE0S1T  GDRs  with  spikes  removed. 

Subroutines  Required: 


gauss _elim  Solves  linear  equation  Ax=b  by  Gaussian  Elimination. 

Subprograms  Required: 

comp_lit_quad  Computes  quadratic  least  squares  lit. 
comp_lit_lin  Computes  linear  least  squares  lit. 
lind.bad.pts  Finds  two  worst  points  in  segment. 
vrite_gdr  Writes  a  single  GDR  to  stdout  or  prints  error. 

Relerances: 


*/ 

A  include  <math.h> 

A  include  <stdio.h> 
A  include  "geos.b" 


#deline  IUMARGS  3 

#deline  DARG  1 

Adeline  VARG  2 

Adeline  OARG  3 

Adeline  MICRO  le-0 

Adeline  BADFIT  -99999.0 


/*  Conv  lor  utcm  */ 

/*  Return  il  least  sq  malformed  */ 


Adeline  SWAP(u,v)  {(xswap)=(u) ; (u)=(v) ; (v)=(xswap) ;> 


double  **a,  *b; 

/* 

double  **alt  *bl; 

/* 

double  *xans,  exansi; 

/* 

struct  Irame  Irs [3000] ; 

/♦ 

short  int  kstart,  kstop; 
double  maxO,  maxi; 

•  V 

int  imaxO,  imaxl; 

/* 

double  *h_lit; 

/* 

double  t; 

/* 

int  num; 

/* 

double  xswap; 

/* 

Arrays  lor  quad  lit  */ 

Arrays  lor  linear  lit  */ 

Results  lor  quad  and  linear  lit  */ 

GDRs  */ 

Start  and  stop  lor  each,  lit  */ 

Two  worst  points  to  remove  */ 
il  lirst  lit  is  bad  */ 

Temp  array  ol  lits  lor  lind_bad_pts  */ 
Temp  time  variable  */ 

Humber  ol  points  in  lit  segment  */ 

Temp  swap  variable  */ 


main  (argc.argv) 
int  argc; 
char  *argv[] ; 

{ 


/* 

Declare  subroutines  and  subprograms... 
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*/ 

doable  **cr_mat .doable ( ) ; 

doable  comp.fit.quadQ ; 

doable  conp_fit_lin() ; 

iat  fiad_bed_pte() ; 

int  write_gdr(); 

iat  err;  /*  error  retarned  by  gaase_elin  */ 

iat  neighbors; 

doable  timel,  time2;  /*  Read  in  tines  lor  gap  determination  */ 

doable  h_new;  /*  Calculated  height  */ 


float  deltnax;  /*  Maxi nun  tine  for  gap  */ 

float  outlier;  /*  Maximum  offset  for  rejected  point  */ 


short. int  seg_len[1000] ;  /*  defines  each  segment  */ 

short  int  seg_beg[1000] ;  /*  */ 

short  int  points=0;  /*  Counters  */ 

short  int  segments  =0;  /*  */ 

short  int  i,  j,  k,  ii;  /*  */ 

/* 

Check  arguments . . . 

*/ 

if  ((arge  !*  IUMARGS+1)  U  (arge  !=  1)) 

fprintf (stderr, "Osage:  %s  [deltmax  deighbors  outlier]  <  filein  >  filout\n", 
argv  CO] ) ; 
exit(l) ; 

> 

if  (arge  *=  IUMARGS+1) 

< 

sscanf (argv D)ARG] , "%i" ,  Adeltmax) ; 
aacanf (argv  ClARG] , "%d" ,  ^neighbor s ) ; 
sscanf (argvCOARG] ,"Xf”,  Aoutlier) ; 

> 

else 

deltnax  =  3.3; 
neighbors  =  13; 
outlier  =  50.0; 

> 

/* 

set  ap  matrices  for  least  squares . . . 

*/ 

a  =  crjsat.doable(3,3); 
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al 

b 

bl 

xana 

xansl 


cr_*at_double(2,2) ; 
(doubla  *)calloc(3, 
(double  *)calloc(2, 
(double  *)calloc(3, 
(double  *)calloc(2. 


aizeol (double) ) ; 
sizeol (double) ) ; 
sizeol (double) ) ; 
aizeol (double) ) ; 


h_lit  =  (double  *) call oc (neighbors ,  aizeol (double) ) ; 


/* 

Read  in  all  GDRa . . . 

*/ 

shile  (lreaud( (char*) air a [point a] , 1 ,REC_LEI , stdin) ==REC_LEI)  pointa++ 
points — ; 


/* 

1.  Break  into  data  segments... 

*/ 

aeg_len[0]  =  1; 
seg_beg[0]  =  0; 

tine 2  =  lrs[0].utc  +  IraCO] .utcm*MICR0; 
lor  (i=0;  i<points;  i++) 
i 

tinel  a  tine 2; 

tine2  *  lrs[i+l].utc  +  lrs[i+l] .utcm*MICR0; 
il  ( (tine2  -  tinel)  <=  deltnaz) 
seg_len[eegnents] ♦+ ; 

> 

else 

8egnenta++ ; 

eeg_beg[aegnenta]  *  i  ♦  1; 
seg_len [segments]  =  1; 

> 

} 

il  (seg_lenC0]  ==  0)  ezit(l); 


2.  For  each  segnent... 

*/ 

lor  (i=0;  i<= segments;  i++) 

/* 

2a.  Ignore  segment  il  there  are  too  leu 
points . . . 

*/ 

il  (seg_lan[i]  <  neighbors)  continue; 

/* 

2b.  Fit  a  quadratic  through  each  point... 
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*/ 

else 

i 

lor  ( j=seg_beg[i] ;  j<seg_beg[i]+seg_len[i] ;  j++) 

kstart  =  j  -  neighbors/2; 
kstop  =  kstart  +  neighbors; 
imaxO  =  imaxl  =  -1; 

h_new  *  comp .lit _quad(j) ; 


/* 

3.  II  lit  is  tolerable  write  out  point... 

*/ 

il((lab8(h_new-lrs[j] .m_h)  <  outlier) 
kk  (h_new  ! =  BADFIT)) 

write_gdr( j ,  argvCO]); 

> 

/* 

3a.  Else  remove  two  worst  points  and  recoapnte  lit... 

II  lit  is  aalloraed,  reaove  lirst  and  last  point  and  recompute  lit... 

*/ 

else 

{ 

il  (kjnew  ==  BADFIT) 

imaxO  =  0; 
inaxl  *  nun  -  1; 

> 


else 

1 ind_bad.pt s () ; 


/* 

Recompute  lit... 

*/ 

h_new  *  comp.tit.quad(j) ; 


4.  II  lit  is  tolerable  write  out  point... 
*/ 


il((labs(k_new-lrs[j] .m_b)  <  outlier) 
kk  (h.new  !=  BADFIT)) 

write_gdr(j,  argv[0]); 

> 

else 

{ 


h_new  =  comp_lit_lin( j) ; 
t  =  lrs[j].utc  +  IrsCjJ .utcm*MICRO; 
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/* 

5.  II  lit  is  tolerable  write  out  point... 

*/ 

il((labs(h_nev-lrs[j]  .m_h)  <  outlier) 
kk  (h_new  !=  BADFIT)) 

write_gdr(j,  argvCO]); 

} 

else 

IprintKstderr, "Rejected  point  ->  \tTime:  \t%ll  \n",t); 
IprintKstderr,  "\t\t\tOriginal  b:  \t%d\n",  lrs[j].m_h); 
IprintKstderr,  "\t\t\tComputed  h:  \t%7.11f\n",  h_new) ; 

> 

> 


> 


> 


> 


> 


/* - 

subprogram  comp_fit_quad. 

Written  by:  Michael  Caruso 

Woods  Hole  Oceanographic  Institution 

Purpose:  This  subprogram  is  used  with  g.spline  to 
compute  a  quadratic  lit. 


*/ 


double 

comp_lit_quad( j ) 
int  j; 

{ 

double  z,  y,  zz,  zy,  zzz,  zzy,  zzzz; 

double  h_new; 

double  t,  t2,  t3,  t4; 

int  k; 

int  err; 

num  *  0; 

z  =  y*zx*zy  =  zzz  =  zzy  =  zzzz  =  0.0; 


lor  (k=  kstart;  k<  kstop;  k++) 
i 

it  ((k  ! =  (kstart+imazO))  kk  (k  !=  (kstart+imazl) ) 
kk  (k  !=  j)) 
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t  *  fra  DO  .utc  +  fraCk] .utcm*MICRC; 
t2  *  t*t; 
t3  3  t2*t; 
t4  =  t3*t; 
x  +«  t; 

y  +=  frs[k].m_h; 
xx  +=  t2; 

xy  +=  t*frsDd.m_h; 

XXX  +=  t3; 

xxy  +=  t2*lrsCk] .m_h; 
xxxx  t4; 
nxui  ++t 

} 

} 

aCO]  [0] 
a  [0]  Cl] 
aCO]  C2] 
aCl]  C2] 
aC2]  C2] 
bCO] 
bCl] 

bC2]  =  xxy; 
err  *  gauaa_ 

t  *  IraCj] .utc  +  fraCj] .utcm*MICRO; 
h_new  =  xanaCO]  +  xans [1] *t  +  xansC2]*t*t; 

il  Carr  0) 
return(h_nee) ; 

•laa 

return  (BADFIT  ) ; 


s  num; 

=  a  Cl]  CO]  *  x; 

=  a  Cl]  Cl]  =  aC2]C0]  =  xx; 
=  aC2] Cl]  *  xxx; 

=  xxxx; 

=  y; 

*  xy; 

.alin(a,  3,  3,  b,  xans); 


> 


/* - 

Subprogram  comp_lit_lin 

Written  by:  Michael  Caruao 

Wooda  Hole  Oceanographic  Institution 

Pnrpoaa:  This  subprogram  is  used  eith  g.splina  to 

compute  a  linear  least  squares  lit. 


double 

comp_lit_lin( j ,  prog) 
int  j; 
char  *prog ; 
i 

double  x,  y,  xx,  xy; 
double  h.nev,  t,  t2,  t3,  t4; 
int  err; 


int  k; 


x=y=xx*xy=  0.0; 
ana  =  0; 

f or  (k=  kstart;  k<  kstop;  k++) 

ii((k  !=  (kstart+imaxO) )  U  (k  !  =  (kstart+im&xl) ) 
t*  (k  !®  j)) 

t  »  Ira [k] .utc  +  frs[k] .utcm*MICRO; 
t2  =  t*t; 
x  +=  t; 

y  +=  frsCk].m_h; 
xx  +a  t2; 

xy  +=  t*frs [k] .m_h; 
num++ ; 

> 

> 

al [0] [0]  3  num; 

ai  [0]  [1]  *  al  Cl]  [0]  =  x ; 

al  Cl]  Cl]  =  xx ; 

bl[0]  =  y; 
bl[l]  =  xy; 

•rr  3  gauss_elim(al,  2,  2,  bl,  xansl); 

t  =  frs[j].utc  +  frstj] .utcm*MICR0; 
h.new  3  xansl  [0]  +  xansl  [1]  *t; 

if  (arr  3=  o) 

return  (h.new) ; 

else 

retnrn  (BADFIT) ; 


} 

/* - 

Subprogram  find_bad.pt a 

Written  by:  Michael  Caruso 

Woods  Hole  Oceanographic  Institution 

Purpose: 

This  subprogram  finds  the  two  worst  points 
in  a  series  for  program  g.spike. 


f  ind.bad.ptsQ 

{ 

short  int  ii; 


*/ 


for  (11*0;  ii<num;  ii++) 

t  *  frsCkstart+ii] .utc  +  frs [kstart +ii] .utcm*MICR0; 

h.fitCii]  =  frsCkstart+ii] .m_h  -  (xans[0]+xans[l]*t  +  xans[2]*t*t); 
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> 

11  (lab»(li_litC0])  >  labs(h_lit[l])) 

maxO  3  labs(h_fit  [0]  ) ; 
aaxl  =  labs(h_fit[l] ) ; 
iaaxO  =  0; 
laaxl  3  i; 

> 

•la* 

aaxO  3  f abs(h_iit [1] ) ; 
aaxl  3  labs(h_llt[0] ) ; 

IaaxO  3  i; 
laaxl  3  o; 

> 

lor  (ii=2;  ii<nua;  ii++) 

il(labs(h_lit(ii])  >  maxi) 

aaxl  =  fabs(h_f it [ii] ) ; 
laaxl  3  ii; 

> 

11  (aaxl  >  aaxO) 

SWAP (aaxl ,aaxO) ; 

SWAP ( laaxl, iaaxO) ; 

} 

> 

> 

/* - 

Subprogram  write_gdr 

Written  by:  Michael  Caruso 

Woods  Hole  Oceanographic  Institution 

Purpose:  This  subprogram  writes  the  selected  GDR  to 

standard  output. 


- */ 

write_gdr(j ,  prog) 
int  j; 
char  *prog; 

il  (lwrite((char  *)Alrs[j],  1,  REC.LEI,  stdout)  !=  REC.LEH) 

{ 

geo.error (3 ,prog) ; 
exit (3) ; 

> 

> 
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Program  g -spline. c 


/* 

C(#)g_splin« . c  1.3  12/15/89 

Program  g.spline.c 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanograhie  Institution 
Woods  Hole,  MA 

Modifications: 

12-15-89  MC  Changed  call  to  geo.cyc.orb  so  that  time  is 
passed  and  not  a  GDR. 


Purpose: 


This  program  sill  spline  all  geosat  GDR  data  except  the 
10  per  second  heights  againts  the  latitude  value. 

Method: 


1.  Break  data  into  continuous  segments 

2.  Fit  each  segment  with  a  spline 

3.  Spline  each  data  value. 

4.  Write  out  all  data  between  min  and  max 
Usage: 


The  GEOSAT  GDR  is  read  from  standard  input. 

cat  c000.a002  I  g.spline  dir  min  max  deltmax  timestep>  c000.a002s 

will  spline  the  records  from  the  GDR  in  c000.a002  between  min 
and  max  latitude  if  dir  is  1  and  between  min  and  max  longitudes 
if  dir  is  2. 


Input: 


Stdin 

dir 


min 

max 

deltmax 

timestep 


Clean  GEOSAT  GDRs 

Determines  boundaries  of  spline: 

1  -  Use  latitude 

2  -  Use  longitude 
Minimum  lat  or  Ion. 

Maximum  lat  or  Ion. 

Maximum  gap  in  seconds  for  a  contiguous 

segment. 

Interval  between  spline  points. 
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Output: 


Stdout:  Splined  GEOSAT  GDRs.  Values  in  gaps 

between  valid  segments  are  set  to  all 
zeros. 

Subroutines  Required: 

geo_cyc_orb  Returns  the  cycle  number  and  orbit  number 
for  a  given  time. 

natcubspline  Computes  a  spline 

References: 


*/ 

#  include  <math.h> 

#  include  <stdio.h> 

#  include  "geos.h" 


Adefine  1UMARGS  S 

#define  DIARG  1 

#define  MIARG  2 

#def ine  NAARG  3 

Adefine  DEARG  4 

#def ine  TIARG  5 

Adeline  MICRO  le-6 

Adefine  MAZPOIITS  2915 

/* 


Define  some  globals 

*/ 


/*  Conv  for  utcm 

/*  +/-  degrees  latitude 

with  fit  subprograms... 


to  share 


*/ 

*/ 


int  ii,  j,  k; 

int  latstart,  latstop; 

struct  frame  frsinCMAIPOIITS] ;  /*  frame  MAXPOIETS/2  is  defined  at’ the  equator  */ 

struct  frame  f rout [MAIPOISTS] ; 

float  timestep; 

short  int  point 8=0; 

float  *x; 

float  *y2; 

float  *lat; 

float  *y; 

i 

float  zO,  minval,  marvel; 

/* 

Variables  for  orbit  analysis. 

*/ 

int  orb,  eye; 

double  rs,  rs3,  cosine,  prec,  rot,  dthdt; 
double  time,  theta,  sinth,  latO,  lonO,  tmp; 


short  int  seg_len[1000] ; 
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short  int  seg_beg[1000] ; 

unsigned  char  ascorb; 

aain  (argc,argv) 
int  argc; 
char  *argv  □ ; 


int  fit_time(); 
int  f it_data() ; 


doable  tinel,  time2;  /*  tine  variable  used  to  determine  gap  */ 

float  deltnaz; 

short  int  i; 

short  int  dir; 

short  int  segments  =  0; 


static  char  SccsIdQ  =  "0(#)g_spline.c  1.4\t6/23/89"; 

x  =  (float  * ) c alloc (MAXP0I1TS ,  sizeof (float)) ; 
j2  =  (float  a ) calloc (MAXPOIITS ,  sizeof (float) ) ; 
y  =  (float  *)calloe (MAXPOIITS,  sizeof (float)) ; 
lat  =  (float  *)calloc(MAXPOIITS,  sizeof (float)) ; 


if  ((argc  ! =  IUMARGS+1)  At  (argc  !=  1)) 

fprintf (stderr, "Usage:  Y.a  [dir  min  mu  deltmu  timestep]  <  filein  >  fileout\n", 
argv [0] ) ; 
exit(l) ; 

> 

if  (argc  ==  IUMARGS+1) 

sscanf  (ugv[DIARG]  ,"%hd" ,  ftdir) ; 
sscanf (argv[MIARG] , "Xf " ,  kminval) ; 
sscanf  (argv  [MAARG]  ,"y,f" ,  Amuval) ; 
sscanf (argv [DEARG]  ,"Xf" ,  Adeltmu) ; 
sscanf (argv CTIARG] ,"%f" ,  fttimestep) ; 

> 

else 

fprintf (stderr ."Usage:  %s  [dir  min  mu  deltmu  timestep]  <  filein  >  fileout\n", 
argv[0] ) ; 
exit(l); 


/+ 
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Read  in  all  GDRa . . . 

*/ 

(Mil  (!read((char*)A!rsin[points] , l,REC_L£I,stdin)==REC_LEI)  points++; 
points — ; 

if  (points  <=  0) 

!print!(stderr,"%s:  lo  point!  to  apline\n\n",argv[0]); 
axit(0) ; 

> 


/* 

Determine  if  orbit  ii  ascending  or  descending... 

*/ 

i!((frsin[0] .lat  <  frsinCl] .lat)  ft*  (!rsin[l] .lat  <  Irsin [points] .lat)) 
ascorb  *  TRUE; 

> 

else  if((!rsin[0] .lat  >  frsinCl] .lat)  kk  (frsinCl] .lat  >  frsin [points] .lat)} 
ascorb  =  FALSE; 

> 

else 

f print! (stderr,"Xs:  Unable  to  determine  i!  orbit  is  ascending  or  "); 
f print! ( stderr , "descending \n" ,  argv[0] ) ; 
ezit(l) ; 

> 

/* 

Set  up  lor  direction.  I!  dir  !=  1,  then  se 
find  the  latitude  that  corresponds  to  minion 
and  mar Ion. 

*/ 

il  (dir  ! =  1) 

{ 

lon_to_lat() ; 

> 


/* 

Fill  latitude  array  and  iind  starting  index... 

*/ 

lor  (i=0;  i<  MAXPOIITS;  i++) 

{ 

i!  (ascorb) 

< 

lat [i]  =  DEG+as in( sin ( (i-MAXP0IHTS/2)*t imestep*M2P I/PERIOD )*sin(IHC) )  ; 
i!  (minval  >  lat[i])  latstart  =  i+1; 

> 


else 

lat [i]  =  DEG*asin(sin(((MAXP0IHTS/2)-i)+timestep*M2PI/PERI0D)*sin(IIC)) ; 
i!  (marvel  <  lat[i])  latstart  =  i+1; 

> 
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> 


/* 

1.  Break  into  data  segments... 

*/ 

seg_len[0]  =  1; 
seg_beg[0]  =  0; 

tina2  =  frsinCO] .ntc  +  frsin[0] .ut cm* MICRO; 
for  (i=>0;  Kpointa;  i++) 

tinel  =  tin a 2 ; 

time2  =  frsin[i+l] .ntc  +  frsin[i+l] .utcm*HICRO; 

if  ((tina2  -  tinal)  <=  deltnaz) 

< 

seg_len [segment a] ++ ; 

> 

•Isa 

{ 

segments** ; 

seg.beg [segments]  =  i  +  1 ; 
seg_lan [segments]  =  1; 

> 

> 

if  (seg_len[0]  ==  0)  ezit(l); 

/* 

2.  Initialize  data  and  fit  a  spline  to  each  segment.. 
♦/ 

for(i=latstart;  i<MAXPOIITS;  i++) 

i 

front [i].lat  =  (int) (lat [i]/MICR0) ; 
front [i] . Ion  =  BAD ; 
front[i].m_h  =  BAD; 

> 

for  (i=0;  i<=segments ;  i++) 

fit_time(i) ; 
fit_data(i,0) ; 
fit_data(i,l) ; 
f it_data(i,2) ; 
fit_data(i,3) ; 
fit_data(i,4) ; 
fit_data(i,S) ; 
fit_data(i,6) ; 
fit_data(i,7) ; 
fit_data(i,8) ; 
fit_data(i,9) ; 
f it_data(i , 10) ; 
fit_data(i , 11) ; 


/*  initialize  spline  */ 
/*  Ion  */ 

/*  h  */ 

/*  orb  */ 

/*  s_h  */ 

/*  geoid  */ 

/*  a oh  */ 

/*  s_snh  */ 

/*  s_nght  */ 

/*  age  */ 

/*  s.agc  */ 

/*  s.tide  */ 

/*  o_tide  */ 
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fit_data(i,12) ; 

/*  s_fnoc  */ 

fit_data(i,13) ; 

/*  u_SB*r  */ 

fit_data(i,14); 

/*  d.fnoc  */ 

fit_data(i,15) ; 

/*  iono  */ 

fit_data(i,16) ; 

/*  dh_ssh  */ 

fit_data(i,17) ; 

/*  dh_fm  •/ 

fit_data(i,18) ; 

> 

/*  att  */ 

/* 

Write  out  points... 

*/ 

lor  (k*latstart;  k<j;  k++) 

il  (furite((char  *)kfrout [k] ,  1,  REC_LEI,  stdoat)  !=  REC.LEI) 

{ 

geo_error(3,argv[0] ) ; 

•lit (3) ; 

> 

} 

> 

/* 


Subroutine  fit.time 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  HA 

Purpose : 

This  subprogram  fits  a  spline  to  the  time  variable  in  a 
6E0SAT  GDR. 


*/ 

int  fit.tiae(i) 
int  i; 


float  yout; 
ii  =  0; 

lor  (j=seg_beg[i] ;  j<seg_beg[i]+seg_len[i] ;  j++) 


x[ii]  =  IrsinCj] .lat*MICR0; 

y[ii]  =  (float) (IrsinCj] .utc  -  lrsin[seg_beg[i]] .utc) 
+  (float )frsin[j] .utcm*MICR0; 
ii++; 

> 

xO  =  xCO] ; 
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/* 

spline(x-l,  y-i,  ii,  l.e30,  l.e30,  y2-l); 

*/ 


natcubspline(x,  y,  ii,  xO,  tyout,  0); 
j  =  latstart; 

while  ( (aacorb  kk  (latCj]  <  xO))  II  (! aacorb  tt  (latCj]  >  xO))) 
{ 

j++; 

> 

while  ((latCj]  >  ninval)  kk  (latCj]  <  naxval)) 

i 

ii  ((aacorb  kk  (latCj]  >  frsinCseg.begCi]] .lat*MICR0)  kk 

(latCj]  <  frsinCseg_beg[i]+seg_lenCi]-i] .lat*MICR0)>  II 
(iaacorb  kk  (latCj]  <  frsinCseg.begCi]] .lat*MICRQ)  kk 
(latCj]  >  frain Cseg.beg [i] +seg_len Ci] -1] .lat*MICR0))) 

/«■ 

splint (x-1,  y-1,  y2-l,  ii,  latCj],  tyout); 

*/ 

natcubspline(x,  y,  ii,  latCj],  tyout,  1); 

front Cj] .utc  =  (int)yout  +  frsinCseg.begCi]] .utc; 
front [j] .at a#  =  (int)((yont  -  ( int)yont) /MICRO ) ; 

> 

ala* 

{ 

front Cj].lat  =  (int) (latCj] /MICRO) ; 
front Cj].utc  =  0; 
froutCj] .ntca  =  0; 

> 

> 

natcnbapline(x,  y,  ii,  latCj],  tyout,  2); 
return; 

> 

/* 


Subroutine  fit .data 
Written  by: 

Michael  Carnao 

Vooda  Hole  Oceanographic  Inatitution 
Wooda  Hole,  Ml 

Purpose: 

This  subprograa  fits  a  spline  to  the  data  segment 
specified. 


*/ 

int  fit.data(i,  var) 
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int  i,  T«r; 


float  yont; 
iat  iyout ; 
ii  =  0; 

for  (j**og_bag[i3 ;  j<aag_beg[i]+aeg_len[i] ;  j++) 


x[ii]  3  frsin[j] .lat*MICR0; 

■witch  (war) 

{ 

casa  0: 

yCii]  3  (float)frsinCj] .Ion; 

braak; 

casa  1: 

yCii]  =  (float)frainCj] .m_h; 

braak; 
casa  2: 

yCii]  3  (float )fraia[j] .orb; 

break; 
case  3: 

yCii]  =  (float )f rain [j] .s_h; 

braak; 
casa  4: 

yCii]  3  (float )fraia [j] .gaoid; 

break; 
casa  6: 

yCii]  3  (float)frsinCj] .swh; 

braak; 
casa  6: 

yCii]  3  (float JfrsinCj] .s_swh; 

braak; 
casa  7: 

yCii]  3  (float)frsinCj] ,s_nght; 

braak; 
casa  8: 

yCii]  3  (float )f rain [j] .age; 

braak; 
casa  9: 

yCii]  3  (float)frainCj] . s.agc; 
braak; 
casa  10: 

yCii]  3  (float)fraiaCj] .s_tida; 
braak; 
casa  11: 

yCii]  =  (float)frainCj] ,o_tide; 

braak; 

casa  12: 

yCii]  =  (float JfrainCj] .w_fnoc; 
braak; 
casa  13: 

yCii]  3  (float)frsinCj] .w_amnr; 

braak ; 
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cut  14: 

yCii]  *  (float)frsiuCj] .d_fnoc; 

break; 

case  IS: 

yCii]  *  (float )frsinCj] .  iono; 

break; 
case  16: 

yCii]  3  (float JfrsinCj] .dh_swh; 
break; 
case  17: 

yCii]  3  (float)frsinCj] .dh.fn; 
break; 
case  18: 

yCii]  3  (float JfrsiaCj] .att; 
break; 
default : 
return(l) ; 

> 

ii++; 

} 

xO  =  x[0] ; 

/* 

spline(z-l,  y-1,  ii,  l.e30,  l.e30,  y2-l); 

*/ 

natcubspllua(x,  y,  ii,  xO,  kyout,  0); 
j  3  latstart; 

while  ((ascorb  kk  (latCj]  <  xO))  II  ({ascorb  kk  (latCj]  >  xO))) 

j++; 

> 

while  ((latCj]  >  ainval)  kk  (latCj]  <  oaxval)) 

•C 

if  ((ascorb  kk  (latCj]  >  frsin[seg_beg[i]] .lat*MICR0)  kk 

(latCj]  <  frsinCseg_begCi]+seg_lenCi]-l] .lat*MICR0))  II 
(fascorb  kk  (latCj]  <  frsin[seg_begCi]] .lat*KICR0)  kk 
(latCj]  >  frsinCseg_begCi]+seg_lenCi]-l] .lat*MICR0))) 

{ 

/* 

spliut(x-l,  y-1,  y2-l,  ii,  latCj],  kyout); 

*/ 

natcubspline(x,  y,  ii,  latCj],  kyout,  1); 

iyout  =  niat(yout); 
set_data(j,  iyout,  var); 

> 

else 

i 

set_data(j,  BAD,  var) ; 

> 

j++; 

} 

natcubspline(x,  y,  ii,  latCj],  kyout,  2); 
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raturn(O) ; 


> 

/* 


Subroutine  sat  .data. 

Written  by: 

Michael  Caruao 

Woods  Hols  Oceanographic  Institution 
Woods  Hole,  MA 

Purpose: 

This  subroutine  simply  puts  the  data  into  the 
correct  element . 


*/ 

int  set. data (point,  data,  var) 
int  point; 
int  data; 
int  var; 

{ 

switch  (var) 

{ 

case  0: 

trout [point] .Ion  =  data; 
break; 
case  1: 

trout [point] .m_h  =  data; 
break; 
case  2: 

trout [point] . orb  =  data; 
break; 

case  3: 

trout [point] .s_h  =  data; 
break; 
case  4: 

trout [point] .geoid  =  data; 

break; 
case  S: 

trout [point] . swh  =  data; 

break; 
case  6: 

trout [point] .s.swh  =  data; 
break; 
case  7: 

trout [point] .s.nght  =  data; 

break; 
case  8: 

trout [point] .age  =  data; 

break; 
case  9: 

trout [point] .s.agc  *  data; 
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tetik; 
cu«  10: 

front [point] .  s_tide  *  data; 
break; 
casa  11: 

front [point] .o.tida  *  data; 
braak; 
caaa  12: 

front [point] . w_fnoc  a  data; 
braak; 
caaa  13: 

front [point] .*_aaar  *  data; 
braak; 
caaa  14: 

front [point] .d_fnoc  =  data; 

braak; 
caaa  IS: 

front [point] . iono  =  data; 
braak; 
caaa  16: 

front [point] .dh_svh  =  data; 
braak; 
caaa  17: 

front [point] .dh_fa  =  data; 
braak; 
caaa  18: 

front [point] .att  =  data; 
braak; 
daf anlt : 
ratnrn(l) ; 

> 

> 

/+ 

Subrontina  lon_to_lat 

Written  by: 

Michael  Caruso 

Vooda  Hola  Oceanographic  Institution 
Woods  Hols,  HA 

Purpose: 

This  subroutine  converts  the  minv&l  and 
aazval  whan  given  in  longitude  to  latitude. 

*/ 

int 

lon_to_lat() 


int  i; 

float  tapval ; 
double  taq>tiae; 
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/*  Ostanina  orbit  nuaber  */ 

taptina  *  frsinCO] .utc  ♦  fra in [0] .utca*MICRO; 

geo_cyc_orb(tnptiae ,  kcyc,  korb) ; 

ra  *  BE  +  train [0] .orb; 
rs3  *  ra*rs*ra; 
cosine  *  coa(IICL); 

prac  *  -l.S*J2*sqrt(GM/rs)*RE*RE*coaine/ra3; 
rot  *  prac  -  (H_PI_2/SD) ; 
dtbdt  =  M2PI/PEBI0D ; 

/* 

Loop  until  «a  find  »in_lat  and 
aax_lat . 

*/ 

lonO  -  train [0] .lon*1.0e-6*RAD; 
tine  =  0.0; 


if  (aacorb) 

{ 


i  =  0; 

while  (lonO  >  naxval*RAD) 

i 

i++; 

lonO  =  frsinCi] .lon*1.0e-6*RAD; 


while  (Ion 0  <  maxval*RAD) 

tine  -=  tinestep; 
theta  s  dthdt*time; 
sinth  =  ain(thata); 

latO  =  (frainCi] .lat*l. 0e-6)*RAD  +  asin(sin(IICL)*sin(theta)) ; 
tap  =  cosinc*ainth/cos(latO) ; 
tap  *  (tap>1.0)  ?  i.O  :  tap; 
tap  =  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  =  (asin(tap)  ♦  rot*tiae)  +  frsinCi] .Ion* 1 .0e-6*RAD; 


lonO  8  trsinCpoints] .lon*l .0e-6*RAD ; 
tapval  8  latO*DEG; 
tiaa  *  o.O; 
i  *  points; 

while  (lonO  <  ainval*RAD) 
i— ; 

lonO  8  frsinCi] .Ion* 1.0e-6*RJU); 

> 

while  (lonO  >  ainval*RAD) 
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tiaa  ♦=  tiaeatap; 
that a  =  dthdt*tiaa; 
ainth  =  aia(theta) ; 

latO  *  (frainCi] .lat*1.0a-6)*RAD  +  aain(ain(IICL)*ain(theta)) ; 
tap  3  coeinc*ainth/coa(latO) ; 
tap  =  (tap>1.0)  ?  1.0  :  tap; 
tap  =  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  =  (aain(tap)  +  rot*tiae)  +  IrsinCi] .lon*1.0e-6*RAD; 

> 

ainval  -  tapval ; 
aaxval  -  latO* DEG; 

> 

alia 

{ 

lonO  -  frain[0] .lon*1.0e-6*RAD; 
tiaa  =  0.0; 
i  =  0; 

while  (lonO  >  aaxval*RAD) 

{ 

i++; 

lonO  =  frainCi] .Ion* 1.0e-6*RAD; 

> 

while  (lonO  <  aaxval*RAD) 

i 

tiaa  -=  tiaeatap; 
thata  s  dthdt*tiaa; 
ainth  =  ain(thata); 

latO  *  (frainCi] .lat*l .0e-6)*RAD  +  aain(sin(IICL)*sin(theta)) ; 
tap  =  coainc*ainth/coa(latO) ; 

tap  =  (tap>1.0)  ?  1.0  :  tap; 
tap  =  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  =  (aain(tap)  *  rot*tiae)  +  1 rain [i] .Ion* 1.0e-6*RAD; 

> 

aaxval  =  latO*DEG; 

lonO  *  frainCpointa] .lon*l .0a-6*RAD; 
tiaa  =  0.0; 
i  =  point a ; 

while  (lonO  <  ainval*RAD) 
i--; 

lonO  =  train [i] .Ion* 1.0e-6*RAD; 

> 

while  (lonO  >  ainval*RAD) 

tiaa  +=  tiaeatap; 
thata  =  dthdt*tiaa; 
ainth  =  ain(theta) ; 

latO  *  (trainti] .lat*l .0e-6)*RAD  *  asin(sin(IKCL)*sin(theta)) ; 
tap  =  coainc*sinth/cos(latO) ; 


167 


tap  ■  (tap>1.0)  ?  1.0  :  tap; 
tap  *  (tap<-1.0)  ?  -1.0  :  tap; 

lonO  3  (uia(tap)  +  rot*tia«)  +  Ira  in  [i]  .lon*1.0a-6*RAD; 

> 

ainval  ■  latO*DEG; 

> 
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Program  g.uncompress.c 


/* 

*(#)g_uncompress . c  1.2  6/14/90 

Written  by: 

Pierre  Fitment 
Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI 

Modifications : 


Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA 

Purpose: 


Uncompress  compressed  geosat  data  from  18  bytes/frame  to 
standard  I0AA  data  frame;  leave  0  for  items  lost 
in  compression. 


item 

parameter 

units 

range 

type 

1 

TIME  since  start  aOOO 

ms 

0  to  1.4< e9 

long  int  (4) 

2 

HEIGHT 

cm 

0  to  32766 

short  int  (2) 

3 

CYCLE  number 

0. . . 

char  (1) 

4 

LATITUDE-*- 90  deg. 

10-4deg  0  to  18e5 

unsigned  int  (3) 

S 

LOIGITUDE 

10-4deg 

0  to  36e5 

unsigned  int  (3) 

6 

SIGMA  HEIGHT 

cm 

0  to  255 

unsigned  char  (1) 

7 

SWH 

5cm 

0  to  255 

unsigned  char  (1) 

8 

So 

.ldb 

0  to  255 

unsigned  char  (1) 

9 

FLAGS 

char  (1) 

10 

0CEA1  TIDE 

cm 

-128  to  128 

char  (1) 

Method: 


Usage : 

g_uncompress  <  file. 18b  >  file.gdr 
Input: 

18-byte  data  record 
Output : 
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Pseudo  Geosat  GDK 


*/ 

*  include  <stdio.h> 

*  dal Isa  PERIOD  8037 .551518571 

#  del in a  START .TIME  68406188.43  /*  equator  ring  orbit  cOOO.aOOO  */ 

#  deline  BAD  32767 

/*  thia  ia  tba  atandard  geosat  frame  */ 

struct  in.frame  { 

long  int  utc,utcm,lat,lon,orb; 

abort  int  m_h,a _h,geoid,b[10] ,sHh,s_SHh1s_nght,agc,s_agc; 
char  11 [2] ; 

abort  int  h.off , a. tide ,  o_t ide , w_ln<~ c , w.smmr , d.f noc ,  iono , dh.swh , dh_lm , at t ; 

>; 


struct  in.frame  in; 

/a  tbia  ia  tbe  compressed  frame.  Order  is  important  since  compiler 
forces  abort  int  on  even  word  boundaries  */ 

struct  out .frame  { 
long  int  utc; 
abort  int  m.b; 
char  cycle.n; 
char  lat[3] .Ion [3] ; 
unsigned  char  «_h,swh,s_nght ; 
char  11; 
char  o.tide; 

>; 

struct  out .frame  out; 
char  junk [4] ; 

double  time , cycle=244*PERI0D ; 


int  i,j; 
main() 


while(lread( (char*) tout, 1 , 18,stdin)==18) 

( 

time=out .utc/ 1000 . +START_TIME+out . cycle.n* cycle ; 
/*  implicit  cast  to  long  int  */ 
in.utc=(long  int)time; 

in.utcm=(long  int) ((time-(long  int)time)*le6) ; 
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junk  Cl] =out . lat [0] ; 
junk [2] =out . lat  Cl] ; 
junk  C3] =out . lat  C2] ; 

in . lat = ( * (long  int  * ) k j unk [0] -900000) * 100 ; 

junk  Cl] =out . Ion [0] ; 
junk(2]=out -lon(l]  ; 
junkC3]=out.lonC2] ; 

in.lon=(*(long  int*)fcjunk[0] )*100; 


in . B_k=out . m_h. ; 


in . »_k= (out . s_h==255?BAD : out . a_h) ; 
in . awh= ( out . swh==25S?BAD : out . suh*5 ) ; 
in.s_ngkt=(out.a_nght==2SS?BAD:out .a_nght*10) ; 
in.il [1] =out.il; 

in.a _k=(out  .8_h==255?BAD:out  .s_h.) ; 
in.o_tida=(out.o_tide==127?BAD:out .o_tide*10) ; 
t write ( (char*) kin, 1,78, stdout) ; 

> 
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Program  g.which.c 


/* 

0(#) g.which.c  1.4  11/14/89 
Program  g.which.c 
Written  by: 

Michael  Carnso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  Ml 

Modifications : 


Original  concept  by  P.  Flament 
Woods  Hole  Oceanographic  Institution 
Woods  Hole,  Ml 

Purpose : 

Reads  minimum  latitude  and  longitude,  maximum  latitude  and 
longitude  and  returns  the  orbit  numbers  within  that  box. 

Usage: 

The  program  reads  the  minimum  and  maximum  latitudes  and  longitudes 
from  the  command  line.  If  only  two  arguments  are  given,  they  are 
taken  to  be  a  lat/lon  point  and  the  nearest  ascending  and  descending 
tracks  are  found. 

g.which  30  45  280  300 

or 

g.which  30  280 
Input : 
lone 
Output : 

Orbit  numbers  suitable  for  use  in  a  chain  of  pipes: 
cat  cO/cOOO. ‘g.which  30  45  380  300'  I  g.ext  1  L 
Subroutines  required: 


geo .which  returns  an  array  of  l’s  and  0’s  for  each  cycle 

within  the  desired  box. 
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References : 


Bugs: 


Assumes  input  data  contains  complets  orbits. 


# include  <stdio.h> 

A include  <sys/lile.h> 
# include  <sutth.li> 

# include  "geos.h" 


A define  IUKARG  4 
Adeline  IUHARG2  2 
Adeline  HILTARG  1 
Adeline  HILTARG  2 
Adeline  HILIARG  3 
Adeline  HILIARG  4 
Adeline  HILIARG 2  2 

char  *cm="H ;  /*  single  ,  lor  print  statement  */ 


main(argc,  argv) 
int  argc; 
char  *argvD  ; 


unsigned  char  a[ORB_PER_CYC] , 

d[ORB_PER_CYC] ;  /*  arrays  o 1  orbits  within  box  */ 

int  i;  /*  Counter  */ 

double  min.lat , 

max.lat , 
min. Ion, 

max.lon;  /*  input  lon-lat  box  */ 

/* 

Read  command  line  arguments. 

*/ 

il  (argc  «  IUKARG  +  1) 

( 

sscanl (argv [HILTARG] ,’7.11" .Amin.lat) ; 
sscanl (argv [HXLTARG] t'7.11" ,*max_lat) ; 
sscanl  (argv  [HILIARG]  tM7.11"  ,*min_lon) ; 
sscanl (argv CHXLIARG] ,'7.11",*max_lon) ; 
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> 

•laa  if  (argc  ==  IU1UKG2  +1) 

{ 

aacanf (argv [KILTA&G] ,"Xlf " ,*ain_lat) ; 
sscanf  (argv [MJLIARG2]  ,,7.1f",*ain_lon) ; 
aax.lat  ®  ain_lat; 
max _ Ion  =  ain_lon; 

> 

•laa 

{ 

fprintf (atdarr, "Usage:  Xa  ain_lat  aax.lat  ain.lon  max_lon\n" ,  argv[0]); 
fprintf (atdarr, M  Or\a"); 

fprintf (atdarr Xa  lat  lon\n",  argv[0]); 

•xit(l) } 


/*  datazaina  orbits  to  renova.  */ 

gao_v]iich(ain_lat ,  aax.lat,  nin.lon,  max.lon,  a,  d); 

fprintf ( stdont ,"{"); 

for  (i=0;  i<ORB_PEK_CYC;  i++) 

{ 

if  (a[i])  {fprintf  (stdont, "Xa a'/,03d", cm ,i)  ;ca=",";> 
if  ( d  [i] )  {fprintf  (  stdont ,  "'/.ad‘/.03d" ,  ca ,  i  ) ;  ca=  “ , " ;  > 

} 

fprintf ( stdont 


> 
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Program  s.ext  r 


/* 

«(*) s.ext. c  1.1  12/14/89 

Program  s.ext. c 

Written  by: 

Mini  Baker 
Pierre  Fluent 
Oceanography  Department 
University  of  Basal! 

Honolulu,  HI 

5  October  1989 

Modifications : 

14  October  1989  MJC  changed  include  ssmi.h  to 
geos.h  for  future  compatibility. 

Purpose: 

To  extract  user  specified  data  from  an  SSMI  record 
Method: 


Reads  raw  SSMI  data  from  standard  input  and  applies 
corrections  and  conversions.  Reads  user  desired  output  variables 
from  command  line  arguments.  Writes  output  on  standard  output  in 
ASCII  format. 

Usage : 

The  SSMI  data  are  read  from  standard  input  and  output  variables  are 
read  from  the  command  line. 

cat  s000.a002  I  s.ext  t  1  L  >  file.asc 

will  extract  the  time,  latitude  and  longitude  for  each  point 
in  the  file  s000.a002. 

Input: 

Stdin  Raw  SSMI  data,  except  for  the  times  which  are  in 

GEOSAT  time. 


Output 


Stdout  Extracted  ASCII  format 
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Subroutines  required: 


lone 

References: 

lone 

♦/ 

#  include  <math.h> 

#  include  <stdio.h> 

#  include  <string.h> 

#  include  "geos.h" 

#  define  MXP  9  /*  mar  number  of  parameters  */ 

#  define  VCH  4  /*  number  of  SSMI  channels: 

0  and  3  are  long  int 
1  and  2  are  short  int  */ 


#  define  PRIIT(X)  printf (formCcolCi]] ,X) 

char*  val  ClCH+5]  ={,,tH , " 

1” , "LM . "f 1" , "us" , "vp” , "cl" , "rn" , "cus": 

/*  in 

uhich 

t 

(seconds) 

time  since  START.TIME 

1 

(degrees) 

latitude 

L 

(degrees) 

east  longitude 

fl 

(-) 

flag  indicating  data  characteristics 
=0,  over  ocean 

=1,  no  orbit  altitude  information 
=2,  over  land 
=3,  over  sea  ice 

us 

(meters/second) 

uind  speed  (NOTE:  if  =  BAD,  no  uind  i 

vp 

(kg/m*m) 

columnar  uater  vapor  (NOTE:  if  =  BAD 
vapor  due  to  rain) 

cl 

(kg/m*m) 

columnar  cloud  uater 

rn 

(mm/hr) 

rain  rate 

cus 

(meters) 

SSMI  correction  for  uater  vapor 

*/ 


/*  formats  for  printing  output  fields  */ 

char*  form [ICH+6]  ={"%10 .  Ilf \t " ,  '7,8 . 21f \t " ,  '7.6 . 21f \t " , "Xd\t" , 

"X8  •  21f\t " ,  *7.8 . 21f  \t " ,  *7.8 . 41f  \t " ,  ’7.7 . 31f \t  ” , 
"X8.41f\t">; 


int  i, j , col [MXP] ; 
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double  *s() ,ep() ,cl() ,rn() ,cvs() ; 
double  lat.lon; 


main  (argc.argv) 
int  urge; 
char  *argvQ ; 

{ 

for(j=0;j<MIP;j++) 
col[i]  *  -1; 

arge — ; 
argv++; 

if  (argc==0) 

f printf ( stderr , " sext :  argument  errorVn" ) ; 
•xit(l); 

> 


/*  find  which  channels  should  be  processed 
1:  argument /column  index 
j :  channel  number 

col Cl] :  channel  number  corresponding  to  column  1 

*/ 

for  (l=0;i<argc;i++) 
for  (j=0;j<ICH+6;j++) 

if(  !strcmp(argv[i]  ,val[j]))  {col[i]=j;break;} 
while  (fread( (char*) Af rssmi ,1,12, stdin) ==12) 

lat  =  f rssmi. lat*1.0e-02; 

Ion  =  f rssmi. lon*1.0e-02  +  180.; 

if  ( f rssmi. f lag !=0)  continue; 

for  (i=0;i<argc;i++) 
if  (col[i]==0) 

PKIlT(f rssmi. utc-ST ART .TIME) ; 
else  if  (col[i]==l) 

PRIlT(lat) ; 
else  if  (col [i] ==2) 

PRIIT(lon) ; 
else  if  (col[i]==3) 

PRHT(  (  int  )f  rssmi  .flag) ; 
else  if  (col[i]==4) 

PRHT(msO); 
else  if  (col[i]==B) 

PRI*T(vp()) ; 
else  if  (col [i] ==6) 
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PftHT(clO); 

•Isa  12  (col[i]»=7) 

PaHT(rnQ); 

•la*  12  (col (i]==8) 

PRHT(ceaQ); 

print2("\nM); 

> 

> 

double  ws() 

/•  computes  wind  apsad  */ 

double  wind; 

wind  =  0.2*(2rssmi.sin  -  30.); 

12  (viod  ==  45.0)  sind  =  BAD; 
r«turn(sind) ; 

> 

double  vp() 

/*  computes  eater  vapor  */ 

l 

double  vapor; 

vapor  *  0.04*(2rssmi.vap  -  5.0); 

12  (2aba (vapor  -  10.)  <  l.e-3  ) 
vapor  =  BAD; 

else 

vapor  =  vapor* 10. ; 
returu(vapor) ; 

> 

double  d() 

/*  computes  cloud  eater  */ 

i 

double  cloud; 

cloud  a  0.5*(2rssmi.cld  -32)*1.0e-02 
return ( cloud) ; 

> 

double  rn() 

/*  computes  rain  rate  */ 

i 

■  double  rain; 

rain  a  0. 193*cl()*l .0e02  -0.48; 

12  (rain  <  0.0) 
rain  a  o.O; 
return(rain) ; 
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> 


double  cws() 

/*  computes  GEOSAT  correction  for  water  vapor 
References : 


P.A.  Phoebus  and  J.D.  Hawkins,  'The  impact  of  water  vapor 
attenuation  on  the  interpretation  of  altimeter-derived  ocean 
topography  in  the  Vortheast  Pacific',  submitted  to  JGR,  special 
GEOSAT  issue,  June  1989 

B.O.  Tapley  and  J.B.  Lundberg,  ’The  SEASAT  altimeter  set 
tropospheric  range  correction’,  JGR  87  pp.  3213-3220,  1982 

*/ 

double  wettrop; 

if  (vp()  ==  BAD) 
wettrop  =  BAD; 

else 

wettrop  =  -0.00636*vp() ; 
return(wettrop) ; 

> 
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Program  i_region.c 


/* 


C(#)s_region.c  1.2  12/14/89 

Program  a .region. c 
Written  by: 

Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA 

Modifications : 


Mini  Baker 

Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI 

modified  g.region  to  s.region  to  process  SSMI  data 
4  October  1989 

MC  14  Oct  1989,  changed  include  file  ssmi.h  to  geos.h 
for  future  compatibility. 

MB  28  Hot  1989,  changed  calls  to  geo.cyc.orb  to  reflect 
changes  in  geo.cyc.orb. 

Purpose: 


Decodes  SSMI  data  and  separates  raw  data  into  separate  orbits.  Each 
orbit  is  defined  as  beginning  at  the  northernmost  point  of  a  track. 

Each  orbit  is  further  separated  into  an  ascending  section  and  a  descending 
section.  Orbits  are  then  written  out  to  separate  files  of  the  form: 

•  12UU1  Or  8B9UB .  wnnd 

is  the  cycle  number, 
is  the  orbit  number  for  that  cycle, 
signifies  ascending  portion, 
signifies  descending  portion. 

The  data  is  sritten  out  in  the  same  form  as  it  was  read  in.  This  is 
consecutive  records  of  12  bytes  each. 

Usage: 


The  program  reads  the  minimum  and  maximum  latitudes  and  longitudes 
from  the  command  line  and  reads  the  data  from  standard  input.  To  use 


where 


nim 

a 

d 


180 


the  program  to  extract  data  from  the  tap*  (/dev/rmt8,  6250bpi,  input 
block  aiza  14400)  iasuad  by  Wentz,  Iron  101  to  301  and  280E  to  300E: 

dd  if =/dew/r*t8  iba=14400  |  a .region  1  10  30  280  300 

The  first  number  on  the  argument  line  specifies  whether  the  box 
should  be  bounded  by  a  latitude  line(l)  or  a  longitude  line(2). 

■ote  that  longitudes  are  all  east  of  Greenwich  and  if  the  box  selected 
spans  360E,  add  360  degrees  to  right  edge  of  box,  ie  3S0  36S. 

Input: 

Stdin  Raw  SSMI  data 

Output: 


s???.????  SSMI  data  within  region  separated  in  ascending  and 

descending  orbits,  with  times  consistent  with  GE0SAT 

times. 

Subroutines  required: 


geo .which 

geo.error 

geo_cyc_orb 


returns  an  array  of  l’s  and  0's  for  each  cycle 
within  the  desired  box. 
prints  error  messages  to  standard  error, 
return  orbit  and  cycle  number 


References: 


Bugs: 


Assumes  input  data  contains  complete  orbits. 


*/ 

# include  <stdio.h> 

# include  <sys/file.h> 

# include  <math.h> 

# include  "geos.h" 

•define  1UMARG  S 
•define  DIRARG  1 
•define  MILTARG  2 
•define  MXLTARG  3 
•define  NHJIARG  4 
•define  MXLIARG  5 

•define  SEC.YR2  2. *365. *24. *3600.  /*  2  times  seconds  per  year  */ 


main(argc,  argv) 
int  arge; 
char  *argr  □  ■ 
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struct  fraaes  frssai2; 


unsigned  char  a[ORB_PER_CYC] , 


d[ORB_PER_CYC] ; 

/*  arrays  of  orbits  uithin  box 

*/ 

char 

str [80] ; 

/*  string  for  output  file  naae 

*/ 

short  int 

dir; 

/*  Direction  of  lat/lon  boundary 

*/ 

short  int 

orbit _nua_tot ; 

/*  the  total  nuaber  of  orbits 

*/ 

int 

cycle _nua; 

/*  the  nuaber  of  cycles  since 

*/ 

int 

orbit _nua; 

/*  orbit  nuaber  eithin  cycle  0-244 

*/ 

short  int 

isopen  =  FALSE; 

/*  check  to  see  if  file  is  already  open  */ 

short  int 

asc; 

/*  flag  for  ascending  or  descending 

*/ 

long  int 

Heap, 

11a in,  llaax; 

/*  lat/lon  boundary 

*/ 

long  int 

lslopel, 

lslope2; 

/*  "Slope"  of  orbit 

*/ 

donbls 

min.lat , 
aax.lat , 
ain.lon, 
aaxJLon; 

/*  input  lon-lat  box 

*/ 

double 

time; 

/*  time  variable 

*/ 

FILE  *fdout; 

/*  output  file  descriptor 

*/ 

Read  command  line  argument a . 

*/ 

if  (arge  ==  IUHARG  +  1) 

{ 

sscanf (argvDDIRARG] ,  '7,hd",  tdir); 
sscanf ( argv [MILT ARC] ."Xlf" ,*min_lat) ; 
sscanf (argv [MXLTARG]  ,"Xlf»  ,*aax_lat) ; 
sscanf  (argv  [MILIARG]  ,'7.11"  .tainJLon) ; 
sscanf (argv  DfXLXARG] ,"%lf " ,Amax_lo-  ' ; 

> 

alsa 

fprintf (stdsrr,"Osaga:  %s  dir  min.lat  max.lat  min.lon  max_lon\n",  argvCo]); 
sxit(l) ; 

} 

/*  determine  orbits  to  remove.  */ 

geo_vhich(ain_lat,  aax.lat,  ain.lon,  aax.lon,  a,  d); 
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/*  Sat  11a la ,  11m . . . 


*/ 


if  (dir  ==  1) 

11a in  =  (int) 
llaax  =  (int) 

> 

•Isa 

{ 

llain  =  (int) 
llaax  *  (int) 

> 


(ain_lat*l .0e02) ; 
(aax_lat*1.0e02) ; 


((ain_lon  -  18000)*1 .0o02) ; 
((aax.lon  -  18000)*!. 0e02) ; 


/*  read  initial  lat  and  long  coordinates  */ 

if (fread((char  *)*frssmi,l, SSMIREC, stdin)  !=  SSMIREC) 

geo_error(2,  argv[0]); 
exit (2); 

> 

frssmi.utc  *  frssai.ntc  +  SEC_YK2; 

if (fr«ad ((char  *)kfrssai2,l, SSMIREC, stdin)  !=  SSMIREC) 

geo_error(2,  argv[0]); 

•xit(2) ; 

> 

frssmi2.ntc  =  frssai2.ntc  +  SEC.YR2; 

/*  Determine  name  of  first  orbit  */ 

tine  *  frssai.ntc; 

lslopel  =  frssai2.1at  -  frssai.lat; 

/* 

orbit _nnm_tot  =  (int)floor((tiae-TIME_ZERO)/PERIOD) ; 
cycle _nua  =  orbit _nua_tot  /  0RB_PER_CYC; 
orbit _ntua  =  orbit _nna_tot  Y,  0RB_PER_CYC; 


geo_cyc_orb(tiae,  tcycle.nua,  torbit.nua) ; 

/* 

Check  to  see  if  first  orbit  is  ascending  or 
descending . . . 

*/ 

if  (  lslopel  >  0  ) 

sprintf (str,"s%.3d.a%.3d",cycle_nua,orbit_nna) ; 
asc  *  TRUE; 

> 

else  if  (  lslopel  <  0) 
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■c 

sprint!  (atr , "aX . 3d . dX .  3d" ,  cycle_num ,  orbit  _num) ; 
asc  =  FALSE; 

> 

alaa 

il  (Irsami.lat  <  0) 

{ 

■print! (atr," »X. 3d. aX. 3d" ,cycle_num, orbit  _num) ; 
aac=TKUE; 

> 

alaa 

{ 

aprintl (atr , "aX . 3d. dX . 3d" , cycle.num , orbit _num) ; 
aac=FALSE; 

> 

> 

/*  Check  to  aaa  il  point  ia  an  orbit  we  want  and  greater 
than  the  min  inrun  latitude  and  smaller  than  the 
maximum  latitude.  11  ao,  write  to  the  output  lile.  II 
the  output  lile  ia  not  open,  open  it  and  mark  it  as 
being  open.  */ 

llcmp  =  (dir  **  1)  ?  Irssmi.lat  :  frssmi.lon; 

il(((asc  ft*  a[orbit_num])  II  (!asc  Aft  d[orbit_num] ))  ftft  (llcmp  >  llmin) 
ft*  (llcmp  <  Umax)) 

il  (isopen  =*  0) 

Idout  =  lopen(str,"a") ; 
isopen  *  1; 

> 

il (lwrite( (char  *) ftlra ami, l.SSMIREC, Idout)  !=  SSMIREC) 

{ 

geo_error(3,  argv[0]); 
exit (3) ; 

> 

> 

/* 

Check  second  point . . . 

*/ 

Hemp  =  (dir  *=  1)  ?  Irssmi2.1at  :  lrssmi2.1on; 

il(((aac  ftft  a[orbit_num] )  II  (!asc  ftft  d [orbit _num] ))  ftft  (llcmp  >  llmin) 
ft*  (llcmp  <  Umax)) 

•C 

il  (isopen  ==  0) 

{ 

Idout  =  lopen(str,"a") ; 
iaopen  =  1; 
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} 

if (f writ* ((char  *)Rlrssai2,l ,SSMIREC,fdout)  la  SSMZBEC) 

i 

geo_error(3,  argv[0]); 

•xit(3) ; 

} 

> 


/*  Raid  in  rast  of  gaosat  data.  Ua  keep  three  points  active 

to  monitor  whan  an  orbit  changes  froa  ascending  to  descending. 
This  was  dona  because  of  the  incomplete  data  at  high  latitudes. 
*/ 

frssmi  =  frssai2; 

while (fr*ad(( char  *)Mrssmi2,l,SSMIREC,stdin)  ==  SSMIREC) 

i 


frssni2.utc  =  frssai2.utc  +  SEC_YR2; 
lalop*2  a  frssai2.1at  -  frssmi. lat; 

if  ((lalopal  >  0  kk  lslope2  <=  0)  II  (lslopel  <  0  kk  lslope2  >=  0)) 
/*  Determine  name  of  next  orbit  */ 
time  a  frssmi2.utc; 

/* 

orbit  _num_t  ot  =  (int)floor((time-TIME_ZERO)/PERIOD) ; 
cycle_num  =  orbit _num_tot  /  0RB_PER_CYC; 
orbit _num  =  orbit _num_tot  %  0RB_PER_CYC; 

*/ 


geo_cyc_orb(tiae,  tcycle.num,  ftorbit_num); 
if  (  lslope2  >  0  ) 

sprint! (str , "sX . 3d . aX . 3d" , cycle.num , orbit _nua) ; 
asc=TRUE; 

> 

else  if  (  lslope2  <  0  ) 

sprint! ( str , " sX . 3d . dX . 3d" , cy cl e _nua , orbit  _num) ; 
asc=FALSE; 

} 

else 

if  (frssai2.1at  <  0  ) 

sprint! (str , "sX . 3d . aX . 3d" , cy cle.num , orbit  _num) ; 
asc=TRUE; 

> 
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•la* 

{ 

■print! ( ■ tr , " s% . 3d . dX . 3d" .cycle  _nua , orbit  _nun) j 
asc*FALSE; 

> 

} 

f doaa(ldont) ;  /*  Close  previous  file  */ 

isopen  = 

> 

Heap  =  (dir  ==  1)  ?  Irssmi2.1at  :  frssmi2.1on; 

if(((asc  k k  a[orbit_nua] )  II  (!asc  kk  d [orbit _nua] ))  kk  (Hemp  >  11a in) 
kk  (llcap  <  llaax)) 

{ 

if  (isopen  ==  0) 

fdout  *  fopen(str,"a") ; 
isopen  =  1; 

> 

if (f write ((char  *)*lrsami2.1pSSMIREC, fdout)  !=  SSMIREC) 

geo .error (3,  argv[0]); 

•zit(3) ; 

> 

> 

frssmi  =  frssai2; 
lslopel  =  lslope2; 


> 


> 
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Subroutine  geo_cyc_orb.c 


•(•)geo_eyc_orb.c  1.3  6/14/00 
Written  by: 

Michael  Caruso 

Woods  Hols  Oceanographic  Institution. 
Woods  Hols,  HA 

Modi! lad  by: 


Mini  Baker 

Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI 

28  lovsaber  1080,  to  sake  subroutine  frame  independent 
and  a  function  of  tine  only. 

Purpose: 


This  subroutine  calculates  the  orbit  number  of 
a  given  GEOSAT  GDE  or  SSHI  data. 

Usage: 


geo_cyc_orb(ti*e ,  eye,  orb) 

double  time  time  of  record 

int  *cyc ;  the  cycle  number 

int  *orb;  the  orbit  number 


Returns: 


-1  on  error. 

Reference: 

lone. 


*/ 

# include  "geos.h" 

# include  <math.h> 

int  geo_cyc_orb(time,  eye,  orb) 
double  time; 
int  *cyc,  *orb; 


double  orbit; 
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int  orbit _imn_tot ; 


it  ((tine  -  TIME.ZEBO)  <  0  ) 
retnrn(-i) ; 

orbit  =  (ti*e-TIME_ZERO) /PERIOD; 
orbit  jaua_tot  =  (int)iloor(orbit) ; 

if((orbit  -  (int)orbit)  >  0.99) 
orbit  _nw_tot  +=  1; 

♦eye  ♦  orbit  jram.tot  /  0RB_PER_CYC; 
♦orb  =  orbit _mun_tot  %  0RB_PEB_CYC; 

return; 


> 
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Subroutine  geo_error.c 


/* 

6(#)geo .error. c  1.2  6/14/90 

Ur it tea  by: 


Michael  Cameo 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  Ml 
October  1988 

Purpose: 


This  prograa  prints  an  error  nessage  to  standard  error 
along  sith  the  naae  ol  the  prograa  that  generated  the 
error. 

Method: 


Usage: 


geo_err(nun,  prognane) 

int  nun  Error  number  to  print, 

char  *prognaae  Prograa  generating  error. 

Input: 


nun  Error  number  to  print. 

eprognaae  Pointer  to  naae  oi  program  generating  error. 
Output: 


Error  message  to  standard  error. 
Returns: 


lone. 


Subroutines  Required: 


lone. 


*/ 

t include  <stdio.h> 

•define  IUMMSG  4 
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/* 

dal In •  array  of  arror  aaaaagaa . . . 

*/ 

char  **aag  □  *  {"Unracovarabla  error\n", 
"c??? . [ad3  ???\n" , 

"Error  reading  file\n", 
"Error  writing  lile\n">; 

geo_error(nna,  prog) 
long  in; 
char  *prog; 


if  (m  <  VUMMSG) 

Ipr inti ( atdarr ,  "Xa :  Xa",  prog,  aeagCnna]); 

elae 

Ipr inti ( atdarr, "Xa:  Xa",  prog,  aeag[0]); 
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Subroutine  geo_mnsk.e 


6(#)geo_mask.c  1.3  6/14/90 

Written  by: 


Pierre  Fluent 
Oceanography  Department 
University  of  Hawaii 
Honolulu,  HI 

Modifications : 

Mike  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  MA 

Purpose: 


Reads  in  environment  variable  GNASH  if  available 
and  converts  to  integers.  Any  character  other 
than  a  0  or  a  1  is  ignored. 

Method: 


Checks  to  see  if  the  user  has  sat  an  environment 
variable  GMASK.  If  so,  the  progru  returns  it. 

Input: 

lone 

Output : 


msk 

valid 

Returns: 


msk  an  integer  with  bits  sat  to  correspond 
to  GMASX  values  of  1 

valid  an  integer  with  bits  set  to  correspond 
to  GMASX  values  of  0  and  1 

*/ 

Adeline  HULL  0 
geo_mask(ask .valid) 

ahort  int  *ask,* valid; 
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•0 - 00";  /*  default  ask;  -  can  be  any  char  */ 


char  *  getenvO; 

char*  at*Ml - 

int  i; 

11  (getearC'GMASX")  !=IULL)  «t=gatanv("OUSK") ; 

lor  (1*0  ;  *(at+i) !**\0*  kk  Klfl  ;  1++) 

11  (*(at+i)**,l’)  evalld  ♦=  l«i; 

11  (*(at+i)=“,l*  II  *(at+i)==»0>)  *»k  +=  l«i; 

> 

•> 
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Subroutine  geo.which.c 


/* 

C(#) geo.which.c  1.3  6/14/90 

Written  by: 


Pierre  Fluent 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  HA 

Modified  by: 


Michael  Caruso 

Woods  Hole  Oceanographic  Institution 
Woods  Hole,  Ml 

Purpose: 


This  procedure  determines  which  orbit  numbers  cross  a  given 

area. 

Method: 


Find  the  times  when  ascending  and  descending  parts  of  orbit  000 
cross  minJLat  and  max.lat.  Find  the  corresponding  longitudes  for 
that  orbit.  Then  repeatedly  shift  the  orbit  by  IHCR,  the  ground 
spacing  between  successive  orbits,  and  flag  those  that  cross  the 
box. 

Only  a  first  order  sinusoidal  approximation  of  the  orbit,  ground  path 
is  used. 


Usage: 


geo_which(min_lat ,  max.lat,  min.lon,  max.lon, 


int 

int 

unsigned  char 


minJLat,  max.lat 
min.lon,  max.lon 
*a,  *d 


d> 


Input: 


min.lat 

max.lat 

min.lon 

max.lon 


minimum 

oaximum 

minimum 

maximum 


latitude 

latitude 

eastward 

eastward 


of  box. 
of  box. 
longitude 
longitude 


of  box. 
of  box. 


Output: 


*a 


array  of  244  elements .  Array  has 
1  in  location  i  if  ascending  orbit 


193 


*d 


i  crosses  box,  0  otherwise. 

Sane  as  *a,  except  tor  descending 
orbits . 


Returns: 


lone. 

Subroutines  Required: 

double  fold(x)  folds  angle  x,  in  radians,  to  the  range  0-2*M_PI. 

Reference: 

lone. 

+/ 

# include  "geos .h" 

♦include  <stdio.h> 

♦include  <math.h> 

♦  define  SWAP(X1,X2)  {x=Xl;Xl=X2;X2=x;} 

♦  define  IODE  ( START _LOI *RAD )  /*  the  longitude  Xing  of  cOOO.aOOO  */ 

♦  define  OM  (2*K_PI/PERI0D)  /*  orbital  omega  */ 

♦  define  DELT  (2*M_PI/244.)  /*  the  increment  between  adjacent  orbits 

*/ 

♦  define  IICR  (2*M_PI*17./244. )  /*  the  increment  between  successive  orbits 

*/ 

♦  define  REP  (0M*17./244.)  /*  1/17  of  the  repeat  cycle  */ 

♦  define  SIVCL  (sin(IVCL))  /*  the  sin  of  inclination  */ 

♦  define  COSCL  (cos(IICL))  /*  the  cos  of  inclination  */ 

♦  define  EPSLAT  (6.e-2)  /*  tolerance  at  +-  IHCL  */ 


double 

min.time.a,  /*  time  orbit  aOOO  crosses  ain.lat  */ 
min.time.d,  /*  time  orbit  dOOO  crosses  min.lat  */ 
max_time_a,  /*  time  orbit  aOOO  crosses  max.lat  */ 
max.time.d,  /*  time  orbit  dOOO  crosses  max.lat  */ 
min.lon.a,  /*  longitude  where  asc  orbit  crosses  min.lat  */ 
min.lon.d,  /*  longitude  where  dec  orbit  crosses  min.lat  */ 
max.lon.a,  /*  longitude  where  asc  orbit  crosses  max.lat  */ 
max.lon.d,  / *  longitude  where  dec  orbit  crosses  max.lat  */ 
del.lon,  /*  longitude  width  of  the  box  */ 
x;  /*  dummy  variable  */ 


int 
i.  s; 


geo .which (min.lat,  max.lat,  min.lon,  max.lon,  a,  d) 
double  min.lat,  max.lat,  min.lon,  max.lon; 
unsigned  char  *a,  *d; 
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{ 


double  foldQ; 

/*  check  order  of  min, max.lat,  SWAP  i 1  necessary,  convert  to  RAO  */ 

11  (min.lat  >  max.lat)  SWAP (min.lat .max.lat) ; 
min.lat  *»  RAO; 
aax.lat  *■  RAO; 

/*  check  to  see  11  ain,nax_lat  exceed  satellite  inclination.*/ 

min.lat  =  (min_lat>M_Pl-IICL?H_PI-IICL-EPSLAT:min_lat) ; 
min.lat  =  (ain_lat<IICL-M_PI?IICL-M_PI+EPSLAT:ain_lat) ; 

max.lat  =  (aax_lat>M_PI-IICL?M_PI-IICL-EPSLAT:Bax_lat) ; 
aax.lat  =  (max_lat<IICL-M_PI?IICL-M_PI+EPSLAT:max_lat) ; 

/*  convert  Ion  to  RAO  and  check  to  see  il  the  calling  program  has 
selected  an  individual  point  */ 

ain.lon  *=  RAD; 
max.lon  *=  RAO; 

il  (ain.lon  ==  max.lon  ) 

< 

ain.lon  =  ain_lon-DELT/2 ; 
aax_lon  =  max_lon+DELT/2; 

> 


/*  ain,aax_lon  are  alvays  given  in  the  right  order.  Fold  them 
so  that  they  are  alvays  in  the  range  0  to  4*M_PI  and 
aax_lon>ain.lon  */ 

vhile  (min.lon  >  max.lon)  mar _ Ion  +=  2*M_PI ; 

del_lon  =  max.lon  -  ain.lon; 

min.lon  =  lold(min.lon) ; 

del.lon  =  lold(del.lon) ; 

max.lon  =  ain.lon  +  del.lon; 

/*  lind  times  at  which  orbit  aOOO  crosses  min.lat  and  max.lat; 
the  origin  o 1  time  is  at  the  ascending  node  */ 

ain.time.a  =  asin(sin(min_lat)/SIICL)/OM; 
max.time.a  =  asin(sin(max_lat)/SIHCL)/OM; 

/*  lind  times  at  which  orbit  dOOO  crosses  min.lat  and  max.lat; 

dOOO  is  BEFORE  aOOO;  the  origin  ol  time  is  at  the  ascending  node  */ 

ain.time.d  *  -PERIOD/2  -  ain.time.a; 
aax.tiae.d  *  -PERIOD/2  -  max.time.a; 

/*  lind  corresponding  longitudes;  here  min.lon.?  correspond  to  min.time.?, 
and  do  not  necessarily  mean  a  minimum  longitude  */ 
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■in  ion  »  =  fold(*0DE+atan2(C0SCL*sin(0M*min_time_a) ,cos(OM*min_time_a))- 
min_time_a*REP) ; 

ain_lon_d  =  fold(I0DE+atan2(C0SCL*sin(0M*min_time_d) ,cos(OM*min_time_d))- 
■in_tia*_d*REP) ; 

max_lon_a  3  fold(I0DE+atan2(C0SCL*sin(0M*max_time_a) ,cos(OH*max_time_a))- 
majc_tiaa_a*REP) ; 

max_lon_d  =  fold(I0DE+ataa2(CGSCL*sin(0M*max_time_d)tcos(0M*max_time_d))- 
max_time_d*REP) ; 

/*  chad  if  orbit  crosses  the  given  box,  then  shift  the  orbit  by  IICR. 

A  given  orbit  crosses  the  box  if  the  top  right  and  bottom  left 
corners  fall  on  opposite  sides  of  an  ascending  orbit,  or  if  the 
top  left  and  bottom  right  corners  fall  on  the  opposite  sides  of 
a  descending  orbit.  This  can  be  expressed  by  the  conditions 

(min_lon-min_lon_a) * (max_lon-max_lon_a)<=Q 

(max_lon-min_lon_d) * (min_lon-max_lon_d) <=0 

given  the  definition  of  min_lon_a,  etc... 

*/ 

for  (  i=0 ;  i<244 ;  i++ ) 


/*  special  care  mast  be  taken  ohen  the  orbit  spans  360;  in  that 

case,  max_lon_d  and  min_lon_a  sere  folded  too  much  and  2*M_PI 
mast  first  be  added  to  them  */ 


if (min_lon_a<max_lon_a)  min_lon_a  +=  2*H_PI; 
if (min_lon_d>max_lon_d)  max_lon_d  +=  2*M_PI ; 

a[i] =dCi] =0; 


/*  test  if  the  orbit  crosses  the  box  and  the  box  shifted  by  +-  2*M_PI  */ 


for(s  =  -1  ;  s  <=  1  ;  s++) 

{ 

if (  (min_lon+s*2*M_PI-min_lon_a)*(max_lon+s*2*M_PI-max_lon_a)<=0) 
a[i]=l; 

if(  (max_lon+s*2*M_PI-min_lon_d)*(min_lon+s*2*M_PI-max_lon_d)<=0  ) 
d[i]=l; 

> 


min_lon_a 

min.lon.d 

max.lon.a 

max_lon_d 

> 


fold(min_lon_a-IICR) 

fold(min_lon_d-IBCR) 

fold(max_lon_a-IICR) 

fold(max_lon_d-IHCR) 


> 

/* 
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Function  fold 


Written  by: 

Pierre  FI an ant 

Woods  Sola  Oceanographic  Institution 
Woods  Sola,  Ml 

Modifications : 

Iona. 

Purposa: 

To  fold  an  angle  to  tha  range  0-2*M_PI  by  removing  or  adding  an  integer 
number  of  2*M_PI . 

Method: 

lone. 

Usage: 

r  =  fold(x) 
double  r,  z 

Input: 

z  angle  to  be  folded,  in  radians 

Output : 

Iona. 

Returns: 

r  folded  angle  corresponding  to  z. 

Subroutines  Required: 

remainder (x,y)  double  z.y;  which  returns  a  number  in  the  range  -y/2  to 
y/2  which  differs  from  z  by  an  integer  number  times  y,  as  defined  in  the 
reference. 

Reference: 

AISI/IEEE  Std  754-1985 


*/ 

double  fold(z) 
double  z; 

double  r; 

r=remainder(x,2*M_PI) ; 
return(r<0?r+2*M_PI :r) ; 

> 
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C  Shell  Listings 

This  appendix  contains  listings  and  descriptions  of  shell  scripts  used  in  this 
report.  Experienced  shell  programmers  may  wish  to  modify  the  scripts  for 
complicated  analysis.  For  novice  shell  programmers,  a  description  of  each  of 
the  scripts  is  given  along  with  necessary  modifications. 

C.l  Repeat  Analysis 

This  shows  how  to  use  the  basic  programs  to  clean  and  correct  raw  GEOSAT 
GDEs  and  perform  the  repeat  analysis  described  in  section  6.  This  particular 
shell  script  uses  the  C*Shell  instead  of  the  Bourne  Shell  4  since  the  C-Shell 
provides  the  command  foreach.  With  a  few  min  nr  modifications,  these  scripts 
could  perform  an  analysis  on  an  entire  region  instead  of  one  orbit.  The  first 
script  assumes  that  each  file  is  in  a  directory  named  with  the  cycle  number  and 
the  filename  follows  the  convention  given  in  section  4. 

#csh 

#  shell  for  generating  single  orbit  repeat 

#  track  analysis 
ink  dir  means 
foreach  i  (c???) 
echo  Si 

# 

cat  Si/Si.”$l”  |  g-cleanl  |  g-correct  |  g_clean2  >!  tmp 
(cat  tmp  |  g-spike  |  g-spline  1  22  48  3.3  0.97992165  > 
Si/Si.”Sl"c) 
end 
# 

echo  Performing  repeat  analysis, 
g-repeat  c*/c*-"$l"c  >  means/mean.”$l"c 
This  script  is  called  with  the  orbit  number  desired: 
gs-repeat  a002 

First  a  directory  is  created  to  hold  the  means.  Then  a  loop  is  created  using 
all  the  cycle  subdirectories.  The  desired  orbit  a002  is  then  cleaned,  corrected 
and  splined  for  all  available  cycles.  When  all  cycles  are  processed,  the  repeat 
analysis  is  performed  and  the  mean/geoid  is  placed  in  the  means  subdirectory. 

The  second  script  is  similar  to  the  first  except  that  it  assumes  that  each 
file  is  in  the  current  directory. 

#csh 

#  shell  for  generating  single  orbit  repeat 

#  track  analysis 
foreach  i  (c???.$l) 
echo  $i 

# 

*  There  are  many  good  shell  programming  books  available  to  describe  the  similarities  and  differences 
between  the  C-Shell  and  the  Bourne  Shell. 
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cat  $i  |  g-deanl  |  g_correct  |  g_clean2  >!  tmp 

(cat  tmp  |  g-spike  |  g-spline  1  22  48  3.3  0.97992165  > 

”$i”c) 

end 

# 

echo  Performing  repeat  analysis, 
g-xepeat  ”$i”c  >  mean."Sl” 

C.2  Data  Extraction 

Sometimes  it  is  useful  to  view  cleaned  and  corrected  data.  The  following  scripts 
show  how  this  may  be  done. 

# 

#  shell  script  for  extracting  dean  sea  surface  heights 

# 

cat  $1  |  g.deanl  |  g-correct  |  g_clean2  |  g-spike  |  g_ext  1 
L  ha  >  ”ll”h 
# 

This  script  would  remove  bad  data  and  extract  the  latitude,  the  longitude  and 
the  sea  surface  height. 

# 

#  shell  script  for  extracting  clean  significant  wave  heights 

# 

cat  $1  |  g.deanl  |  g_correct  |  g_clean2  j  g-spike  ]  g_ext  1 
L  w  sw  >  ”Sl”w 
# 

This  script  would  extract  the  significant  wave  height  and  the  standard  deviation 
of  the  significant  wave  height. 

C.3  Imaging 

This  script  shows  how  to  create  a  variability  image  using  the  output  from  the 
repeat  script  shown  above.  This  script  uses  the  UNIX  command  cut  to  select  the 
necessary  data  from  the  input  files.  In  this  example,  the  latitude,  longitude  and 
the  variability  columns  are  extracted  and  piped  to  g-image.  The  arguments  to 
g-image  are  the  minimum  and  maximum  latitude,  the  minimum  and  maximum 
longitude  and  the  number  of  rows  and  columns  in  the  output  image.  This  image 
is  in  SDPS  floating  point  format  and  needs  to  be  remapped  to  a  bitmap  image. 
This  is  done  using  the  program  sdps.ftb  which  converts  floating  point  images 
to  byte  images.  The  arguments  to  sdps-ftb  specify  that  the  bitmap  should  be 
scaled  from  0.0  to  0.5  and  any  values  less  than  0.0  should  be  set  to  254  and 
values  greater  than  0.5  should  be  set  to  255. 
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# 

#  shell  for  generating  equirectangular  image 

#  of  variability. 

# 

cat  mean. a*  |  cut  -£2,3,7  |  g-image  22  48  284  316  416  512 

>  vara.sdpsf 

cat  vara.sdpsf  |  sdps-ftb  -mxlh  0.0  0.5  254  255  >  vara.sdps 

The  following  script  is  only  a  variation  of  the  previous  script.  It  merely 
demonstrates  how  to  create  an  image  of  the  mean  sea  surface  height  of  all  the 
descending  tracks  in  a  region.  Since  there  were  no  arguments  given  to  adps-ftb, 
the  minimum  and  maximum  are  found  and  used  for  scaling  the  output  bitmap 
image. 

# 

#  shell  for  generating  equirectangular  image 

#  of  mean  sea  surface  height. 

# 

cat  mean.a*  j  cut  -£2,3,6  |  g-image  22  48  284  316  416  512 

>  meand.sdpsf 

cat  meand.sdpsf  |  sdps-ftb  >  meand.sdps 


200 


DOCUMENT  LIBRARY 

January  17,  1990 

Distribution  List  for  Technical  Report  Exchange 


Attn:  Stella  Sanchez- Wade 
Documents  Section 
Scripps  Institution  of  Oceanography 
Library,  Mail  Code  C-075C 
La  Jolla,  CA  92093 

Hancock  Library  of  Biology  & 
Oceanography 
Alan  Hancock  Laboratory 
University  of  Southern  California 
University  Park 
Los  Angeles,  CA  90089-0371 

Gifts  &  Exchanges 
Library 

Bedford  Institute  of  Oceanography 
P.O.  Box  1006 

Dartmouth,  NS,  B2Y  4A2,  CANADA 

Office  of  the  International 
Ice  Patrol 

c/o  Coast  Guard  R  &  D  Center 
Avery  Point 
Groton,  CT  06340 

NOAA/EDIS  Miami  Library  Center 
4301  Rickenbacker  Causeway 
Miami,  FL  33149 

Library 

Skidaway  Institute  of  Oceanography 
P.O.  Box  13687 
Savannah,  GA  31416 

Institute  of  Geophysics 
University  of  Hawaii 
Library  Room  252 
2525  Correa  Road 
Honolulu,  HI  96822 

Marine  Resources  Information  Center 

Building  E38-320 

MIT 

Cambridge,  MA  02139 
Library 

Lamont-Doherty  Geological 
Observatory 
Colombia  University 
Palisades,  NY  10964 

Library 

Serials  Department 
Oregon  State  University 
Corvallis,  OR  97331 


Pell  Marine  Science  Library 
University  of  Rhode  Island 
Narragansett  Bay  Campus 
Narragansett,  RI  02882 

Working  Collection 
Texas  A&M  University 
Dept,  of  Oceanography 
College  Station,  TX  77843 

Library 

Virginia  Institute  of  Marine  Science 
Gloucester  Point,  VA  23062 

Fisheries-Oceanography  Library 
151  Oceanography  Teaching  Bldg. 
University  of  Washington 
Seattle,  WA  98195 

Library 

R.S.M.A.S. 

University  of  Miami 
4600  Rickenbacker  Causeway 
Miami,  FL  33149 

Maury  Oceanographic  Library 
Naval  Oceanographic  Office 
Bay  St.  Louis 
NSTL,  MS  39522-5001 

Marine  Sciences  Collection 
Mayaguez  Campus  Library 
University  of  Puerto  Rico 
Mayagues,  Puerto  Rico  00708 

Library 

Institute  of  Oceanographic  Sciences 
Deacon  Laboratory 
Wormley,  Godaiming 
Surrey  GU8  5UB 
UNITED  KINGDOM 

The  Librarian 

CSIRO  Marine  Laboratories 
G.P.O.  Box  1538 
Hobart,  Tasmania 
AUSTRALIA  7001 

Library 

Proudman  Oceanographic  Laboratory 

Bidston  Observatory 

Birkenhead 

Merseyside  L43  7  RA 

UNITED  KINGDOM 


Mac  90-32 


50272-101 


REPORT  DOCUMENTATION  1.  REPORT  NO.  _  _  2. 

PAGE  W  HOI -90-45 

3.  Recipient's  Accseelon  No. 

4.  THIS  and  Subtitle 

Altimeter  Processing  Tools  for  Analyzing  Mesoscale  Ocean  Features 

5.  Report  Oete 

September,  1990 

6. 

7.  Authors) 

Michael  J.  Caruso,  Ziv  Sirkes,  Pierre  J.  FI  ament,  and  M.K.  Baker 

6.  Performing  Organization  Rept  No. 

WHOI 90-45 

9.  Performing  Organization  Name  and  Address 

The  Woods  Hole  Oceanographic  Institution 

Woods  Hole,  Massachusetts  02543 

10.  Pro|ect/Taafc/Wortt  Unit  No. 

11.  Contract C)  or  Orent(Q)  No. 

(O  N00014-86-K-075 1 

<o> 

12.  Sponsoring  Organization  Name  and  Address 

Funding  was  provided  by  the  Office  of  Naval  Research. 

13.  Type  of  Report  A  Period  Covered 

Technical  Report 

14. 

IS.  Supplementary  Notes 

This  report  should  be  cited  as:  Woods  Hole  Oceanog.  Inst  Tech.  Rept.,  WHOI-90-45. 

16.  Abstract  (Limit:  200  worda) 

Satellite  altimeters  provide  many  opportunities  for  oceanographers  to  supplement  their  research  with  a  valuable  new  data  set. 

The  recent  GEOSAT  exact  repeat  mission  is  the  first  of  several  altimetry  missions  proposed  during  the  next  decade.  To  utilize  this 
new  data,  a  software  package  was  developed  at  the  Woods  Hole  Oceanographic  Institution  and  the  University  of  Hawaii  to  facilitate 
the  extraction  of  useful  information  from  the  NODC  distributed  GEOSAT  data  tapes.  This  software  package  was  written  with 
portability  and  modularity  in  mind.  It  should  be  possible  to  use  this  package  with  little  or  no  modifications  on  data  from  future 
altimeters.  The  code  was  critten  in  C  ard  tested  on  Sun  workstations  and  is  oriented  toward  UNIX  operating  systems.  However, 
since  standard  code  was  used,  the  programs  should  port  easily  to  other  computer  systems.  The  modularity  of  the  code  should  enable 
users  to  create  additional  programs.  Additional  programs  designed  to  handle  collocated  water  vapor  corrections  are  also  included 
for  comparison. 

17.  Document  Analysis  s.  Descriptors 


1.  GEOS  AT 

2.  altimeter 

3.  software 

b.  Identiflera/Open-Endad  Terms 


c.  COSATI  Reid/Group 

it.  AvailebllHy  Statement 

19.  Security  Clase  (This  Report) 

21.  No.  of  Pagee 

Approved  for  publication;  distribution  unlimited. 

UNCLASSIFIED 

209 

20.  Security  Ctaea  (This  Page) 

22.  Price 

(Sss  ANSI-Z39.lt)  See  Unsfrueflons  on  ftevenee  OPTIONAL  FORM  272  (4-77) 

(Forrrtsrty  NTIS-35) 
Dopartmora  o ( Commerce 


